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Dilwyn Jones 


This issue brings to a close the sixth year 
of publishing QL Today. | am pleased to have 
been invoived for ail six of those years and 
enjoyed every part of it (except for when 
Jochen keeps asking me for ideas for ma- 
gazine covers, which | hate and usually re- 
fuse to dol). | recently started a new job and 
after a while found out that even that had a 
connection with QDOS - see the QDOS In 
Hospital news item. 

Things seem to be getting better and better 
for the QL recently. 

The Q60 has been launched and take up 
has been very good. It’s the fastest QL sys- 
tem ever with its 68060 processor at up to 
80 MHz and HUGE memory capability - it 
can have more RAM than most QL users will 
have needed in hard disk capacity! D & D 
Systems reported exceptional interest in the 
computer when they attended the Portslade 
Quanta Workshop and the news just seems 
to get better and better - a software bundle 
can be included with it, there's the prospect 
of CD writing from SMSQ/E for Q60 in a 
few months, compact flash memory adap- 
tors..when's Christmas? | want someone to 
buy me a QL Dream Machine! 

SMSQ/E is starting to open up a bit. It was 
decided at the recent Eindhoven QL mee- 
ting that SMSQ/E development could be 
given a boost by making it a bit more open. 
Tony Tebby has agreed to this development 
and is willing to supply the sources (roughly 
1800 source files, 25 MB zipped, 5.5 MB 
extracted) to anyone who thinks he/she can 
develop the system. A registrar (Wolfgang 
Lenerz) has been appointed to co-ordinate 
matters and ensure that the official SMSQ/E 
distribution includes features that are tested 
and reliable and work across all platforms 
which run SMSQ/E. SMSQ/E will remain 
available from the usual suspects (including 
Roy Wood at QBranch and Jochen Merz) 
and the retail price of SMSQ/E will include 
the usual Support, commercial development 
and so on. The co-ordination of effort is 
more important than it might seem, since 
there could be no worse development than 
a number of ‘unofficial’ SMSQ/E versions 
which fail to run on many systems. Marcel 
Kilgus, who developed the QPC version of 
SMSQ/E, will continue to work on SMSQ/E 
~ he is committed and enthusiastic and the 
person who has the next best knowledge 
to Tony Tebby himself of SMSQ/E. This de- 
velopment will allow SMSQ/E to remain a 
commercial product that you can get the 
usual friendly QL technical support for but 
will open matters up by allowing just about 
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anyone to contribute to its development by 
obtaining the sources. More from Wolfgang 
Lenerz about this elsewhere in this issue. 
QPC2 has also matured recently. | wrote an 
in-depth review of the latest v3.02 {at the 
time of writing!) for Quanta newsletter and 
amazed myself at how it has changed since 
the early days once | actually sat down and 
forced myself to write it all down! Between 
the Q60 and QPC2 we have two genuinely 
superb QL platforms to push us into the 
years ahead. The Q60 is every bit a dream 
machine, while QPC2 is obviously an emula- 
tor So provides an excellent way ahead for 
those of us whose desktop unfortunately 
has to be occupied by the P* machine. 

The "colour drivers’ (GD2 - Graphic Driver 
2) is now well established for Q40, Q60, 
QPC and QXL and starting to gain some 
real applications. Several exist for Q40 
(many can be obtained from Claus Graf's 
Q40 website). | had the pleasure to test 
Wolfgang Uhlig's QcoLour program recently, 
a real aid to handling the colour values con- 
cerned for those writing programs which 
make use of the new colours. Roy Wood 
and others also report being well impressed 
with this program - more details in the news 
pages. 

As we were compiling the news pages for 
this issue we noticed that there seemed to 
be more material than ever, it certainly took 
me a while to type them up in the first 
place! It seems to be a good time to be in- 
volved with 
the QL - with 
everything 
seeming to go 
in the right 
direction, albeit \ 
a little slowly in 3 
some cases! 
Rather less 
good news is 
the closure of 
the German 
issue of QL | 
Today. While 
this Is obvious- 
ly not good 
news, it does 
mean we can ry 
dedicate the las 
time and effort 

solely to the 
English issue 
now to make 
that even 
better! 


Aurora, his Q60......!?!" 


"...but when he invited me back to 
his place to see his hardware, | 
didn't realise he meant his QL, his 


is 
: ot 


[ermopyIpA 


NEWS 


SERNET on QDOS? 


| (Dilwyn) have now put a copy of the SimSer 
extensions to allow one directional serial port 
operation with SMSQ/E style SRX and STX devices 
onto the Other Software Page on my website. The 
software is roughly a 24KB zip file download, with 
documentation in English (SimSer_doc) and German 
(SimSer_txt). The author of the extensions is Hans- 
Peter Recktenwald. Hope this helps those who 
might like to try Sernet on a QDOS system. 
http://www.soft.net.uk/dj/software/other/other.html 
Also available on disk from most PD library services. 


Malcolm Lear Extensions 

Malcolm Lear's CD (Change Directory) and redefined 
EDIT command {allowing EDIT ‘name’ so that EDIT 
can call a proc or fn definition line directly) exten- 
sions are now available from my website's Other 
Software Page on: 
http://www.soft.net.uk/dj/software/other/other.html 
Also available on disk from my PD Library service 
for those unable to download files from the internet. 


SMSQ/E Situation 


Following some discussions on the future of the 
SMSQ/E version of our favourite operating system, a 
meeting was convened at the March Eindhoven QL 
meeting (in The Netherlands) of interested parties to 
discuss the future of SMSQ/E and the possibilities of 
it becoming an ‘open’ or ‘free’ system rather like 
some other operating systems out there. Tony Tebby 
(author of SMSQ/E) has agreed to the proposals 
made. 

Whilst Tony Tebby will retain copyright over the 
code, anyone may have a copy of the source code 
and modify it and give it away for free. Free must 
mean free, no charges whatsoever even media 
charges or copying fees. There will also be an 
official version of SMSQ/E that will be maintained by 
a registrar (Wolfgang Lenerz was appointed regis- 
trar) and be sold by 2 people, namely Roy Wood 
(QBranch) and Jochen Merz. Support for this official 
version will be part of the price. 

The purpose for the official version is to make sure, 
as much as possible, that any change to SMSQ/E 
for one machine €.g. Q60 or QPC) will percolate 
down to all other machines @g. QPC, Q40, QXL 
etc...) as fast as possible, in an attempt to make sure 
that we have one single version with the same 
features (hardware permitting) for all machines. 
Currently, the main developer of SMSQ/E seems to 
be Marcel Kilgus, the developer of the QPC2 
emulator He has been enthusiastic about this move 
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to allow others to develop SMSQ/E by allowing free 
distribution of sources, and apart from Tony Tebby 
he is probably the individual with most knowledge of 
SMSQ/E. Clearly, he would be looking for any 
assistance possible with the project. Others with an 
interest include Joachim van Der Auwera at PROGS 
in Belgium, who is the author of the Prowess 
windowing system, which provides the enhanced 
window manager capabilities, scaleable fonts and so 
on. Prowess Is also now freely distributable. 

Any change made by anybody may be proposed to 
the registrar for inclusion in the official version. 
Further details from Wolfgang Lenerz elsewhere in 
this magazine. 


News from RWAP Software 

The update for Release 4 of the Reference 
Manual is now available - this details how to write 
programs to use the Extended Colour Drivers on 
Q40/Q60/QPC/OXL etc... and even info on how to 
program Aurora's 16 and 256 colour modes... Cost 6 
pounds. 

Q-Index (now v1.05) and Q-Help (v1.06) have been 
updated to reflect the latest changes. Both cost 1 
pound each to update - send disk and SAE 
ProWesS ESC/P2 Drivers have also been 
updated to v1.04 to fix problems on Epson 900 and 
720 dpi printing... Just send a pound plus your disk 
and SAE to update. 

Finally, is there anyone willing to spend a little time 
sorting out the graphics for a new game soon to be 
released - if so, let me have your usual (slow)mail 
address so | can send a copy of the game for you 
to look at (all offers considered). 


New RWAP Software Website 

| have created a short web-page for RWAP Servi- 
ces. It Is at 
http://hometown.aol.co.uk/rwapsoftware/index.htm! 


Editor 2000 V3.06K 

Mark Knight has just issued V3.06K of The Editor 
(originally from Chas Dillon), along with the source 
files. 

This version addresses a slight anomaly when 
running in SMSQ/E systems and QDOS with PE, 
when resizing or moving the Editor window. George 
Gwilt made the suggestion for changes to the code 
and although his suggestion had to be modified 
Slightly by Mark Knight to work properly with older 
systems, it does work well. 

The new release may be downloaded from: 
http://www.soft.net.uk/dj/software/other/other.himl 
Please note that editorzip (the binaries and docu- 
mentation) is just over 210KB in length, while the 
editrsrc.zip (source files) file is nearly 170KB in length 
— anyone not wishing to download files of this length 
from a website can also obtain them for £1 each on 
disk from my PD library service (Dilwyn Jones}. 
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UQLx on a RISC PC? 

Rumour department: Apparently Dave Park, a former 
Sandy UK PCP employee, has the uQLx emulator 
running on a RiscPC. | did not have full confirmation 
at the time of writing, but if anyone requires more 
information, further details may be obtained from 
Dave Park on the email address 
dexter@spodmail.com 


QDOS in Hospital 

"Keep the editor happy” paragraph... 

In January | started working for a company called 
Patientlne who install bedside TWradio/telephone 
etc units in hospitals in the UK and The Netherlands. 
Nothing unusual in that until a well known QL per- 
sonality pops up on email saying he had been in- 
volved in the original software design for these sys- 
tems, and originally they had 68008 processors 
running a derivative of QDOS designed by none 
other than some of the team known to the QL world 
as the QView Mega Corporation a few years ago. 
Seems the QL just keeps following me around 
wherever | go..or is that the other way around? 


Q60 NEWS from D&D Systems 

You may already have seen in the QL press that the 
Q60/Q40i are now in production by D&D Systems 
(Derek Stewart and Dennis Smith). They are looking 
to supply a full hardware and software solution with 
the Q60/Q40i. The hardware is supplied ready built 


into a midi tower case case with a choice of Q60/ 
Q40i CPUs ranging from 40Mhz - 80Mhz, with ram 
up to 128mb. The software to be supplied with the 
system will consist of high quality QL software that 
is verified to run on the Q60/Q40i. A software deal 
has been secured with Jochen Merz to provide pre- 
installed software to the customer for each com- 
plete Q60/Q40i system. This would include Qpacl, 
Qpac2, Fifi, QD and all the free stuff like ProWess, 
menu_rext, etc. maybe about 20 programs installed, 
configured and ready to go. This would be the first 
time since the launch of the QL in 1984 that QLers 
have a plug in and go system. This offer would only 
be open to people who have bought a Q60/Q40i 
system from D&D Systems. 

While talking about the Q60, who apart from me 
noticed that that the Q60 and specifically D & D 
Systems got a good mention on page 75 of the 7th 
March 2002 issue of Micro Mart magazine. Good 
news - if Micro Mart can bring themselves to do 
this, then surely other computer mags could too. 


QL DVD? 

Visitors to the Hove Quanta workshop in March 
would have seen a pair of suspicious looking 
characters wandering around with video cameras. 
Although that sounds rather sinister, it was really just 
Steve Reyal and Darren Branagh who have 
embarked on producing a video all about the QL 
with the long term aim of trying to use it to promote 
the QL. 


Attention ! 


This is the last issue of volume 6 
If you have not already re-subscribed please do so promptly. 
This will help us to avoid the extra cost involved in sending out reminders and 
also allow us to print the correct number of copies for the first issue of volume 7, 


We hope that you have enjoyed reading the magazine over the past six years 
and that you will be staying with us. We are always happy to receive comments 
and suggestions from our readers. 


Please fill in the enclosed form and return it to your usual vendor. 


Thank you for Your continued support. 
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Steve Reyal takes up the story (quoted from the QL 
Users Email Mailing List): 

“The DVD will not be region-limited, so there'll be no 
drive-RPC-lock issues to contend with. And there'll 
be no CSS/Macrovision encoding or anything so 
frustrating either We're not making a Hollywood 
blockbuster after alll (- though the thought of Q-Celt 
subliminal advertising has been considered} 
"PAL/NTSC is an issue however Yes, if you're using 
a computer system to play the material back, then 
the television standard isn't normally a problem. All 
good software DVD players and decoder cards 
should be able to switch quite happily for an 
unrestricted disk. But it is for those who might want 
to play the disk in their set-top boxes, outputting to 
their domestic televisions, that we must produce 
two versions. Wouldn't help the American QLers if all 
we did was a PAL disk now, would it? 

"We're shooting in PAL, on a mini DV camcorder - 
even at the US event in Washington DC, if all goes 
to plan. And we'll stil have to standards-convert to 
produce a DVD for the people over there, FOR the 
people over there! It's not a problem, however, as it 
will be handled as part of the MPEG-2 encoding 
process. 

"As far as QL playback is concerned... you're all 
more qualified than | am to say how it can be done. 
Without dedicated MPEG-2 decoding hardware, | 
have grave doubts as to the ability of anything other 
than a Q40/60 or rapid QPC-based system to 
handle the MPEG-2 throughput. And as for the 
programming..! I'm not, by any stretch of the 
imagination, the right person to answer this. 

"Any enquiries about the DVDs should be made to 
myself or Darren. Any suggestions on features, 
menu-design, imagery and stuff you might want to 
see included, then let us know and we'll see what 
we can do. The main editing/authoring push will start 
just after the Manchester Quanta AGM, though we 
hope to have the layout finalised, and menus/inclu- 
ded software prepared before then.” 

Steve Reyal 

steve@misteravid.com misteravid@hotmail.com 


SOQL Progress Report 

Becoming rather frustrated with the lack of news of 
progress on the soql internet access system for the 
QL, | begged its author Jon Dent in Switzerland, for 
news. Here's what he wrote: 

‘Lam still active (developing soql). 've been bogged 
down with trying to get Linux working with two 
serial ports on my Notebook. | need to be able to 
test both ends of the connection and | think soa! on 
uqlx talking to linux over two ports will be the most 
convenient (and nearest to reality) way to test. Only 
trouble is my serial port (only have one) is perma- 
nently asleep. | bought a USB-Serial converter to try 
and it worked with Linux if | didn't mind the Baud rate 
being wrong. | couldn't get the built in port to work 
anymore so | bought another USB-Serial converter 
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of another make (ie. BAFO). It didn’t work at all on 
Linux. Looking through the mailing lists | realised | 
needed a newer kernel. My attempts to compile one 
led to me completely frying Linux because the disk 
space ran out in the middle. | had to re-install. About 
this time the new Red-Hat distribution. came out so | 
re-partitioned my HD and installed it. Unfortunately 
although there was a newer kernel the BAFO stil 
didn't work. After some email exchanges with the 
author of the driver who was very helpful we came 
to the conclusion that my kernel was. still too 
immature. I've now obtained, compiled and installed a 
new kernel and both USB-Serial ports are working 
properly (baud rate inclusive). I've installed Richards 
latest uqlx (thanks Richard it's great) and soql is 
reinstalled and Im ready to go. This takes us up to 
last weekend. I'd get most of the PPP stuff put into 
soql before this escapade but it wasn’t working, 
hence the need for the linux installation. | don't like to 
predict when !'ll be finished but | am actively pursuing 
my goal.” 


Change of Website Address 

Phoebus Dokos has told me that his QL website 
should have moved to its new address by the time 
you read this: 

The provisional QL page is moving 
htto://www.redoak.net/QL/proforma.html to 
http://www.dokos-gr.net/~ phoebus/ 

Dilwyn Jones's USA website mirror will be moving 
to: http://www.dokos-gr.net/~ dj/ 

The main page will be at: 

http://www.dokos-gr.net/ 

Phoebus's new email address will be 
phoebus@dokos-gr.net 


from 


Frank Davis 

Frank Davis (a past US QL Trader, who traded as 
Mechanical Affinity with Paul Holmgren and later as 
FWD Computing) and wife Carol were involved in a 
very serious Car accident in February and were both 
in intensive care for a while as a result of their 
injuries. 

Their vehicle and its software contents were a total 
loss. they were on their way to an AGI Show in 
anderson when they were struck by a Viper vehicle 
whose driver was alSo seriously injured. 

QL Today would like to extend our best wishes to 
Frank, Carol and family for their recovery and to 
express our thanks to Frank for the years of tireless 
service he gave the QL community in America. 


Q-CELT Computing News 

| have a large collection of reconditioned PC's to be 
disposed of (they are ex bank stock, reformatted 
and Windows 95/98 installed which | got cheaply 
from my employers). They are low end Pentium 
Processors (100 to 200Mhz) but ideal for a cheap 


QL loday 


machine to run QPC or Q-mulator on. They also 
have QPC demo versions installed so you can get 
an idea of the speed etc. 

As these machines are heavy and cumbersome, if 
you are interested in one, PLEASE contact me 
PRIOR to a QL show to arrange for me to bring 
some over for you. | have a full spec list so can go 
through what will suit you privately. Email, Fax or 
phone me for full details. These are quite cheap, so 
call if you need one ~- they make great backup 
machines. 

Version 1.20 of the QL Emulators CD should be 
available by the time you read this. !t includes an 
updated version of the uQLx emulator from Richard 
Zidlicky and the free software section includes many 
updates to programs such as the Turbo Compiler 
and Editor 2000. The Famous Faces CD-ROM, a 
collection of Line Design cartoon style clipart of 
famous people to illustrate your documents, is finally 
available. The clipart is regrettably too large to 
supply on floppy disks. 

Progress on other projects in the preparation stage 
has been slow largely thanks to Dilwyn’'s other 
commitments (new job, QL Today, PD library.) but 
projects ongoing include a large collection of 
Proforma/Prowess fonts from Dilwyn and Phoebus 
Dokos and a new pointer driven program launcher 
desktop program from Dilwyn, an alpha test version 
of which was demonstrated at the Hove Quanta 
Workshop. 


Q-Celt are now agents for Phoebus Dokos in 
Europell We are selling the Compact Flash adapters 
(both the "vanilla" one and the slightly more expen- 
sive hot-removable one) on his behalf, in order to 
save on individual postage to people from the US 
where phoebus is based. We are still looking for the 
best deals for bulk postage and pricing, but expect 
the prices to be about 15 pounds sterling for the 
ordinary CF adapter and 25 pounds for the hot- 
removable ones. These are very keen prices - 
expect to typically pay in the region of twice this in 
the UK for similar products! 

The CF adapters work on the Q40/60 (they were 
displayed recently by D&D systems at the Hove 
Show in March) and will also work with QubIDE 
systems and of course QPC. 

We are still working on producing an Encyclopedia 
for the QL from freeware sources - This should 
speed up now as | have left my former job as a Sys 
Admin for a major Irish Bank and will therefore have 
a bit more time on my hands now (hopefully!) We are 
also looking for new ideas for our growing range of 
CD-ROM's for the QL - if you have an idea, let us 
know and we will try to turn it into a reality! 


Most of you by now will be aware of the the fact that 
| am leaving my current job (a Sys Admin for the the 
Bank Of Ireland) and will be running a new business 
of my own (a computer training centre/internet and 
email shop). 


QL loday 


Therefore, as from Thursday 28th March, at 59m, my 
email at: 

darren.branagh@boimail.com 

will cease to exist. | have organised a new email faci- 
lity in the meantime via my new business, Wicklow 
Web Centre: 

My new email addresses will be: 
darrenb@esatlink.com (private address) 

or 

wwc@wwc.ie wwc@esatlink.com 

(please mark emails to these 2 addresses for my 
attention only as 2 employees will access these 
too!) 

My Hotmail addresses will also be kept active (a lot 
easier if it wasn't for the spam) 
darrenbranagh@hotmail.com 
qceltcomputing@hotmail.com 


TURBO News 

Turbo Compiler version 4 release 14 from George 
Gwilt is now available from the usual Other Software 
Page on my website. 

Changes in release 13 and 14 include: 

1. Minerva integer tokenisation now compilable 

2. The configured Report file is now used (previously 
ignored) 

3. The version number of Parser_Task is now 
conveyed to Codegen_Task, which avoids the need 
to update Codegen_Task just to update version 
numbers when the only change needed is in 
Parser_ Task. 

David Gilham has also release Turbo Toolkit version 
O32. 

There have been the usual bug fixes and some 
distribution changes. Eg CHARGE now works 
properly and some niggles with TYPE_IN have been 
fixed. Also a new function BASIC_ADR has been 
introduced. 
http://www.soft.net.uk/dj/software/other/other.html 


QL CHAT 

Dave Park has created a sort of newsgroup by 
email, called QL Chat. Its intention is to allow free 
discussion by people interested in QLs, but not 
necessarily on subjects directly related to the QL. 

lt came about because a number of discussions on 
the main ql-users mailing list branched off onto 
non-QL topics which upset some of the list mem- 
bers. This new list allows such spin-off chats to 
continue on a separate mailing list so that it is not 
forced onto those who do not wish to receive 
non-QL mail. So you only subscribe to QL-Chat if 
you want to follow these spin-off discussions. Such 
mail is sent to: 

ql-chat@lists.spodmail.com 

You can subscribe by sending an email with: 
subscribe ql-chat «address» in the body to: 
majordomo@lists.spodmail.com 


Itll have a charter something like "This is for free dis- 
cussion by people interested in QLs, but not neces- 
sarily about QLs.” 

Dave has finished the preliminary work, and feels the 
website he's been working on is now ready for 
some public viewing. 

http://ql.spodmail.com/ 

You'll find it has a variety of sections that are 
currently empty - he is working on content right 
now. It also has a quite powerful forum where you 
can post about almost anything... 

The site will be refined and developed over the 
coming months, so if you have ideas or suggestions, 
now Is the time to let Dave know 

Dave Park ql.spodmail.com dexter@spodmail.com 


Norman Dunbar’s Website 

Norman has been busy adding more QL documen- 
tation to his website. 

Does this man ever take a lunch break from his QL? 
Latest additions are : More trap 1 stuff and examples, 
common and user heaps explained, etc. 
http://www.bountiful.demon.co.uk/qdos/index.html 


ETHERIDE 


Dave Park writes: 

The EtherlDE Ethernet board is coming along slowly. 
Devices have been selected and layouts discussed. 
This will be a very busy little board, with overlaps 
and a few engineering challenges. The provisional 
spec Is quite impressive, but we may have to drop 
one of two design options that conflict because of 
the amount of space they take up. 

Remember, this board will mimic, and be software/ 
driver compatible to the Goldfire board, as far as 
that is possible to do with a machine that's still being 
developed. 

Sorry I've been a little quiet lately, I've been concen- 
trating on matters closer to home. Now those mat- 
ters are behind me, | will be devoting more time and 
energy to this project with Nasta. 

lf anyone has any questions or ideas, they can email 
me privately. 

dexter@spodmail.com 


Jim Hunkins News 

Jim Hunkins, who is developing the QDT desktop 
system for modern QL systems, has written to let us 
know more about his website, where you can get 
more information about the progress of QDT and so 
on. 

Jim is setting up a subscription list for website 
updates for jdh-stech.com, specifically for the QDT 
(QL Desktop) project. If you would like to subscribe 
to this list, please just send an email from the 
account to which you want the update emails sent 
to: 

subscribe@jdh-stech.com 
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For those of you who have been asking what he has 
been working on at Apple for the last two years, 
check out the new “My Professional Life’ page on 
his website. It now shows you two products that he 
was involved in for the last 2 years that are just now 
shipping. 

http://jhunkins.prxy.com 

» his actual home page 
http://jnunkins.prxy.com/PAGES/APPLPROD.HTM 

» direct link to new page 


QWIRC by Per Witte 

Qwirc is a hard disk management utility for - only for 
QPC2 at present - to mount and unmount QXLwin 
files and to set or rename the hard disk (as seen 
from SMSQ/E). It runs under the Pointer Environment, 
so should be less of a hassle to get to grips with 
than my previous offerings. The zipped package is 
about 40k. 

It is available for download from 
http://www.soft.net.uk/dj/software/other/other.html 

It costs nothing, so don't be shy! 


ProWesS News 

There is now a new ‘downloads’ page on the 
PROGS site (http://www.progs.be/) which includes 
links to all the files. 

The version | uploaded is also slightly modified. 
There is now proper support for the euro character 
(Unfortunately, this does mean that the fonts need to 
be rebuilt, as you now get the euro character when 
you ask for \paragraph\). 


QCDEZE and CSB 


Thierry Godefroy writes: 

Duncan Neithercut just sent me a utility that for sure 
will be GREATLY appreciated by Q40/Q60 and 
SGC+Qubide users! 

I's name is "QCDEZE” and it is to be used as a 
front-end to my CDROM device driver It is PE driven 
and allows you to browse, copy and “execute” (via 
Filelnfo ll) files present on an ISO-9660 CD- 
R(OM/W). | could not test it myself as my Q60 is in 
France (and | am not) but it apparently makes use of 
the proper methods to take the largest benefits from 
the existing CDROM driver features {it must be very 
fast when compared to qxitools for example). 
QCDEZE is available from the QDOS/SMS reposito- 
ry at: http://smsq.free.fr/#DISK 

Note that Duncan also updated his CSB (Clip Scrap 
Board, now at v2.18) utility: it now works on almost 
all QL-compatible systems and should cope with any 
screen resolutions (available into the "generic utilities" 
section of the repository). 


News from Marcel Kilgus 
l'm proud to announce the launch of my completely 
new web appearance. Its address Is 
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http://www. kilgus.net/ 

and it contains all the latest news about QPC. The 
new pages are easier to maintain and therefore 
there is a good chance that | really will keep them 
up-to-date (beside the fact that | like how they 
turned out which was not true for my old page). 

To all web masters out there linking to my site, 
please update your links, | have removed the old 
page. 

By the time you read this, QPC2v3.02 should be 
available. 

A bug in the DOS device iob.smul routine, which for 
example could cause problems for someone trying 
to zip a file direct to a DOS device, has been fixed. 
A number of other minor changes have been made, 
but the most significant is probably exchanging the 
old beeper emulation (which used the PC speaker) 
with a new one that uses Windows’ DirectSound in- 
terface. This way N1T/2000/XP now have full beeper 
support, too! I've decided to use a square waveform 
but with rounder edges which is a good compromise 
between the original “hard” sound and ‘save the 
loadspeakers’ ambitions. The exact frequencies and 
timings were measured using a Hermes fitted QL. 
The algorithm is based on tests and on an original 
8049 disassembly. All parameters including “fuzzy’ 
and "random" are now supported. This means you 
can now have control over the speaker volume, 
rather than just struggling to hear the old system 
speaker where this existed. 


QLAY News from Jean-Yves 


Rouffiac 

Just to let you know that a new program - 
QLAY-Config/2 - is available for download from my 
web site 

http://www.westhaven.uklinux.net/qwertyb 

This is an OS/2 application that provides a GUI 
front-end for creating/maintaining the QLAY emula- 
tor's configuration file. | appreciate that this may be 
of limited value, but as the DOS version of QLAY Is 
the only emulator option for OS/2 users, there may 
be some interested people - who knows?) 


QCOLOUR from Wolfgang Uhlig 
After obtaining those fantastic bitmap extensions of 
Wolfgang Lenerz at the last Eindhoven meeting | 
took this chance to improve my small colour pro- 
gram a little bit. It's worth having a look at it, | think. It 
displays colours and skins using the GD2 (Graphic 
Driver 2) high colour modes. It was written on a QPC 
system - | am hoping someone will please test if on 
QXL, Q40, Q60 for me... 

Hopefully the program will be available from various 
websites etc. 

Further details from Wolfgang Uhlig on 
wolwol@compuserve.com 
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JMS and QBranch News 

Both JMS and QBranch are happy to announce that 
the price of all SMSQ/E versions has been dropped 
due to the fact of the changed status of license for 
SMSQ/E. Please check the ads of JMS and QBranch 
for the current prices. 


JMS BBS 

For those who dial into the JMS BBS from time 
to time - both numbers now end at the same 
modem. This had to be done because my new 
ISDN exchange only has 4 analogue ports left 


OBITUARIES 


ILM.GAYE 


John Gaye will be well known to many of us 
as the person who wrote the Radio Rallies co- 
lumn in Quanta for several years until his death 
in late 2001. John had been a regular at both 
Quanta workshops and his local sub-group, 
the Solent group. John was a keen Genealo- 
gist and dedicated to the QL. 


FRANK MERRISON 


Martin Wheatley writes: 

Many of you may remember Frank Merrison. 
He unfortunately passed away this morning, 
2nd February 2002. 

He was an early and longtime member of the 
London Quanta Group as well as ClubQL 
International. 

Whilst being no computer expert he was 
never less than enthusiastic and will be much 
missed. 


STEVE PAPIEROWSKI 


Another long time QLer Steve Papierowski, 
passed away on 28th December 2001. Steve 
had suffered from Wegeners Disease for 
some time. He leaves a wife (Anne) amd two 
daughters, to whom we extend our (belated) 
sympathies. 


JOE HAFTKE 

19th September 2001 also saw the loss of 
another long time QL enthusiast, Joe Haftke. 
My abiding memory of him is sharing a 
software trader stand with him at QL shows 
over the years. Joe wrote a lot of QL 
software, much of which lives on in the 
Quanta software library. Joe had suffered a 
Stroke some time ago, but continued his 
enthusiasm for the QL. Joe had started and 
run a local QL user group in the Sidcup area. 


A Diet of Mice 


Geoff Wicks 


In the last issue of QL Today 
Roy Wood described his QL 
roadmaps in which he empha- 
sised his taste for mice. Roy 
came to the Sinclair scene 
comparatively late (1985), 
bought his first mouse in 1987 
and used it regularly from 1991, 
particularly for drawing stage 
plans. 

My Sinclair experience is more 
traditional. My journey started 
in 1982 and progressed via the 
ZX81 and a Spectrum to the 
QL. | had about 13 mouseless 
computing years until 1995 
when | bought a QXL card. 
Even then | did not use a 
mouse, because | had insuffi- 
cient space for a mouse pad in 
my working area. When | even- 
tually started to use a mouse, it 
proved to be unreliable and 
unstable. | tried all the usual 
tricks such as checking con- 
nections, reinstalling the soft- 
ware and adjusting the win- 
dows settings. The fault, when | 
finally tracked it down, was 
much more simple. There was 
a wheel in the mouse | had 
always missed in cleaning! 

| suspect many QL users have 
a similar attitudes to mine. We 
grew up without mice so why 
do we need them? We QL-ers 
tend to have a black and white 
view of mice. We either love 
them or we hate them, just as 
we either love or hate the 
pointer environment. 

One advantage of the QL 
attitude is that, unlike the PC 
world, our software has re- 
mained flexible. Most programs 
can be used with or without a 
mouse, but what | have missed 
in QL publications is a serious 
discussion of mice. When do 
they helo us in our computer 
work and when do they hinder 
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us? Two recent software pro- 
jects have forced me to look at 
this question. 

In his QL Today article Roy 
Wood described how the Icicle 
system allowed him to use a 
simple SuperBasic program to 
hack the Psion Suite so that 
some of its functions could be 
used with a mouse. Many 
QL-ers would applaud this. 
Some years ago in a QL publi- 
cation QL users were asked for 
their top ten software wishes 
and near the top of the list was 
a pointer driven word proces- 
SOF. 

This surprises me because by 
definition word processors are 
keyboard intensive programs. 
Unlike number crunchers, word 
processors can be "slow" pro- 
grams because the computer 
usually processes the text 
faster than we humans can 
think and type. It is hard to see 
any afea in word processing 
where using a mouse brings 
substantial benefits. All to often 
it acts as a distraction. The 
mouse’s pointer is an obstruc- 
tion on the screen which can 
block text or become con- 
fused with the program's cur- 
sor, and every time you use the 
mouse you have to take your 
hands off your main working 
tool, the keyboard Can we 
honestly say that word proces- 
sing operations such as setting 
margins, marking blocks of 
text, copy and pasting, and 
search and change are made 
simply and easier using a 
mouse? 

Paradoxically the program 
where | find the use of a mouse 
essential, is also a word pro- 
cessor, although an unusual 
word processor as it IS Japa- 
nese. Al Boehm, in his review of 
my program QL-RHYMES, 
wrote than whenever he has to 
stop to look something up in a 
paper dictionary he quickly 
loses his train of thought. He 


should count his blessings that 
he is not working in Japanese, 
which uses two phonetic 
alphabets and about 2000 Chi- 
nese characters. 

The more complex Chinese 
characters are made up from 
about 200 simpler characters 
or radicals. To look up a cha- 
racter in a Japanese dictionary 
you first have to decide which 
part of the character is the 
core radical and count the 
number of strokes required to 
write it. You then have to count 
the strokes required to write 
the rest of the character and 
search through the list of cha- 
racters using these strokes. It is 
a painstaking, time consuming 
Process. 

Computers have made the task 
much easier If you do not know 
a character you call up a table 
of radicals and choose a cou- 
ple or more that appear in It. 
The computer displays all the 
characters containing these 
radicals and you click on the 
one your want. If necessary 
you can look up the character 
in a dictionary to choose the 
word you want or look up the 
meanings of the character in 
the glossary. 

A mouse is essential for the 
smooth operation of this pro- 
gram. It enables you to quickly 
move through the table of 
radicals and to flio backwards 
and forwards through the dic- 
tionary and glossary. An orien- 
tal word processor has a much 
stronger graphical and visual 
element than a western one. 
Most of our programs lie bet- 
ween these two extremes, but 
at what point does a mouse 
become essential and at what 
point does it become a hin- 
drance? 

Of the two projects that have 
recently forced me to think 
about this question, one is 
being developed by another 
trader Its structure has some 
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similarities to Wolfgang Le- 
nerz’s popular program “The 
Wall”. | have never played this 
game, but | have seen others 
play it. Its strength lies in its 
speed, the smoothness of its 
action and the way it involves 
the user in quick decision 
making. It is almost tailor-made 
for a mouse. 

But suppose this game was 
better played at a slower pace. 
Would a mouse be so essen 
tial? Would it increase or dimi- 
nish ease of use or a player's 
pleasure? The program being 
developed is a word based 
program. Speed adds to its fun, 
but thinking time is more 
important. | find it difficult to 
assess whether or not a 
mouse would improve — this 
program. 

The second project will, if it is 
successliul, become a Just 
Words! commercial program. 


Basically it automates and 
Structures an analysis process 
that traditionally has relied more 
on the intuitive talents of the 
analyser The nature of its task 
means it is a program where 
speed is irrelevant. It is soff- 
ware designed to be used 
slowly and thoughtfully. 

The program resembles a large 
psychometric, psychosociolo- 
gical or market research ques- 
tionnaire. You initially enter the 
details of your material for 
analysis and the program 
selects those parts of the 
questionnaire relevant to your 
study. You are then guided 
through a lengthy series of 
multichoice questions, and will 
often have to stop to study 
your research material. 

Will this program benefit by 
being written for the pointer 
environment? Its nature means 
that navigation must be done 


by either the cursor keys or by 
a mouse. Will a mouse really 
improve the ease of use of the 
program? 

In the last few years | have 
seen many professional market 
research programs using ques- 
tionnaires similar to the one | 
am writing. Not one uses a 
mouse, and |! wonder |s it be- 
cause of the professional rea- 
son that a mouse would hinder 
the operation of the program, 
or is it because most market 
research is done by cheap- 
Skate companies who fre 
quently overload their obsolete 
computers on which they run 
outdated software? 

Maybe in the QL community 
we need to take less of a black 
and white view of mice. When 
does a mouse help us and 
when does it hinder us in our 
QL work? How do you use 
your mouse? 


QLers Do It With... 


Dilwyn Jones 


Time to lighten up a bit with these fun little 
‘car~sticker’ type sayings. 

Some youll have heard before no doubt. Most are 
‘in-jokes’ but if you've been reading QL Today 
and Quanta newsletter regularly you should 
understand them! Anyone able to donate any 
more? 

QL users do it in black. 

QLers do It in Quantum Leaps. 

German QLers do it with Jochen Merz. 

Super Gold Card users do it Miraculously. 

Q60 users do it very quickly and colourfully 

Q40 users do it almost as quickly. 

Q40 users can also do it with Linux. 

Networkers do it with 3.5mm jacks. 

Quanta members do it in workshops. 


QL Today readers do it 6 times a year 
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Quanta members do it monthly. 

Aurora users do it in various modes. 

QPC users do it by emulation. 

SOQL users do it over the internet. 

Sernet users do it serially. 

QPAC2 users do it with mice. 

QPAC2 users also do it with all sorts of Things. 
Geoff Wicks does it in Style (Checker). 

Geoff Wicks also does it with just words. 
Bruce Nicholls does it over the mailing list. 

PC users do it wearing putty (coloured cases). 
USA QLers do it annually. 

Q-Route users don't get lost doing it. 

QL Genealogist users do it with families. 

Euro QLers do it with a CHR$(181). 

George Gwilt does it Turbo-charged. 

Thierry Godefroy does if at sea. 


Thierry also does it with an Archivers Control 
Panel. 


SS 


Tony Firshman does it with Hermes. Phoebus Dokos does it in a (Compact) Flash. 


The PROGS brothers do it with prowess. Norman Dunbar does it in assembler 

Roy Wood does It with many buttons. Dave Walker does it in C. 

QLers do it with kudos (QDOS). QLers do it with their own hardware. 

QLers do it by multitasking. MinisQL users do it with an aurora. 

QLers do it by plugging in extra hardware. Qubide users do it with a hard disk (hope that 


got printed OK!) 
Jim Hunkins does it with his QDT 
Jonathan Hudson does it with a QTPI. 


.. and how do you do it, Dilwyn? 


Quanta officials do it by committee. 

Bill Richardson does it with Z88s. 

Darren Branagh does It in Ireland with Q-Celts. 
QXL users do it in ISA slots. 


Gee Graphics! (on the QL ?) - part 27 


H L Schaaf 


"More Connecting the "sting of D2v_bas 


d ots" 100 REMark D2V_bas 
PSS 110 REMark HL Schaaf Feb 24, 2002 
120 REMark to go with GG#27 and merge into code51_bas from GG#26 
ir] j 140 REMark plus Voronoi diagram and a few menus 
Dirichiet was said to have 190 REMark set window parameters 
made Gauss understandable. 260 choose_input 
Delaunay Was said to have oa DEFine PROCedure Delaunay 
made Voronoi understandable. 290 REMark array P holds N Delaunay Points 
: ; 300 REMark elements 1, 2 are the x, y values, 
| am, once again, going to tell 310 REMark element 3 is a calculated z-value 
320 REMark array Dtri holds Delaunay triangles 
you more than | know. | hope 330 REMark no more than (2XN)~—5 are needed 
you understand. The Delaunay —_340 iw ptri(((29N)-5), 3) 
and Voronoi tessellations are 350 REMark elements 1, 2, 3 refer to Delaunay Point numbers 
. 60 REMark Dedg holds thi Del d f hn tri 
duals of each other, that is to Meee 
say if you've got one you 380 REMark elements 1, 2 refer to Delaunay Point numbers 
390 PRINT #0;' working on Delaunay triangulation of ';N;' points’ 


should be able to figure out the 269 show_points : start - DATE 


other. 410 FOR i = 1 TO N-2 
; ; 630 check triangle i, j, k 
Last time we set up Post Office 640 show_triangle i,j,k 


locations: as: points: Pinan. ~€2) and tetanete tk 
array, and then connected them 670 =D IF 

i j 680 END FOR k 
using Delaunay triangles. cog San He 


oy es : 700 END FOR i 
This time we hope to figure Out 710 how points 
the Voronoi diagram showing — 720 END DEFine Delaunay 
j 730 : 
the regions served by each 740 DEFine PROCedure show_triangle(a, b,c) 
Post Office, based on distance. 750 LOCal i 
760 POINT P(a,1),P(a,2) 
Load the codedi_bas from last ie meen oe 
j } ict] 1,i),r i, 
time, then merge in the listing 769 ap For 
D2V_bas’.. After that add the 800 END DEFine show_triangle 
810 : 
PROcedures lor angl_frm, 820 DEFine PROCedure check_triangle 


dist_btwn, SWAPand CYC from 330 iw tri_Pts(3,2) 
listings such as the one that 840 degen = 0 


: . 850 TriPts({1,1) = P(i,1) :Tri-Pts(1,2) = P(i,2) 
was in GG#24 about Circle 860 tri Pte(2,1) = Pts) tel Pta(2,2) = Bus} 
Packing. 870 Tri Pts(3,1) = P(k,1) :TriPts(3,2) = P(k,2) 


880 cr = cire3pts (TriPts) 
890 REMark look ahead and check distance to other points 
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900 FOR ct = k+1 TON 

910 IF (et<oi AND ete>j AND ctc>k) THEN 

920 IF dist_btwn(cx,cy, P(ct,1),P(ct,2)) = er THEN 
930 degen = degen + i 

940 PRINT #0;'4 points co-circular '!! if! j ff! k !! et 
950 en = ct 

960 END IF 

970 END IF 

980 END FOR ct 

990 IF (degen » 1) : PRINT #0;'more than 4 co-circular !' :PAUSE 
1000 IF (degen) THEN 

1010 PRINT #0;" point ";en;" moved" 

1020 REMark nudge fourth point out of circle 

1030  cn_ang = angl_frm(cx, cy, P({en,1), P(en,2)) 
1060 P(en,1)=P(en,1) + nudge * COS(RAD(cn_ang)) 

1070 P(en,2)=P(en,2) + nudge * SIN(RAD(cn_ang)) 

1080 P(en,3)=P(en,1)°2 + P(en,2) 2 

1090 END IF 

1100 END DEFine check_triangle 

1110: 

1120 DEFine PROCedure adda triangle (i,j,k) 

1130 Dtri(0,0) = Dtri(0,0) +1 

1140 REMark add 3 more edges 

1150 Dedg(0,0) = Dedg(0,0) + 1 

1160 REMark 1st point in triangle 

1170 Dtri(Dtri(0,0),1) = 4 

1180 REMark ist edge in triangle 

1190 Dedg(Dedg(0,0),1) = i 

1200 Dedg(Dedg(0,0),2) = 3 

1210 Dedg(0,0) = Dedg(0,0) + 1 

1220 REMark 2nd point in triangle 

1230 Dtri(Dtri(0,0),2) = j 

1240 REMark 2nd edge in triangle 

1250 Dedg(Dedg(0,0),1) = j 

1260 Dedg(Dedg(0,0),2) = k 

1270 Dedg({0,0) = Dedg(0,0) + 1 

1280 REMark 3rd and final point of triangle 

1290 Dtri(Dtri(0,0),3) =k 

1300 REMark 3rd and final edge 

1310 Dedg(Dedg(0,0),1) = k 

1320 Dedg(Dedg(0,0),2) = i 

1330 END DEFine add_a_triangle 

1340 : 

1350 DEFine PROCedure show_points 

1360 LOCal i, i$ 

1370 FOR i=1T0N 

1380 INK 0: FILL 1: CIRCLE P(i,1),P(i,2 i ws/24 
1390 FILL O : INK 7: CIRCLE P(i,1),P(i,2),ws/24 
1400 CURSOR P(i,1),P(i,2),-3*(1+(INT(LOG10(i)))),—4 
1410 PRINT i 

1420 END FOR i 

1430 END DEFine show_points 

1440 : 

1450 DEFine PROCedure order_D_edges 

1460 REMark order Delaunay edges and remove any duplicates 
1470 REMark indicate shared interior edges vs. outer hull edges 
1480 PRINT #0;\'please wait, putting edges in order' 
1490 REMark order points in each edge 

1500 FOR i = 1 TO Dedg(0,0) 

1510 REMark order points 

1520 IF Dedg(i,1)>Dedg(i,2) : SWAP Dedg(i,1),Dedg(i,2) 
1530 REMark remove degenerate points as null edges 
1540 IF Dedg(i,1) = Dedg(i,2) THEN 

1550 PRINT #0;"edge ";i;" to be removed (null edge)" 
1560 Dedg(i,0) = 0 : Dedg(i,1) = 0 : Dedg(i,2) = 0 
1570 ELSE 

1580 REMark mark valid as one edge 

1590  Dedg{i,O) = 1 


1600 END IF 
1610 END FOR i 
1620 :: 


1630 REMark order all edges by ist element 
1640 REPeat bubl_sort_1 

1650 swaps = 0 

1660 FOR i = 2 TO Dedg(0,0) 

1670 IF Dedg((i-1),1)>Dedg(i,1) THEN 
1680 swaps = swaps + 1 

1690 FOR j = 1 10 2 

1700 SWAP Dedg(i-1,j),Dedg(i,j) 
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REMarks in the listing should 
help explain what is being 
done. ‘Degeneracies’ can occur 
when points are spaced so that 
four adjacent ones would all be 
on the rim of the same circle. 
One way to deal with this is to 
fudge the data, and move one 
of the points off the circle. The 
variable ‘nudge’ in the listing 
may do the trick. If you see 
any edges of the Delaunay 
triangles crossing other edges, 
that's a sign of ‘degeneracy’ 
and needs to be analyzed. 

Other kinds of degeneracy 
include 3 points being colinear, 
or 2 points being identical. 


've tried to develop a 
PROcedure set_window to 
scale and center = any 
reasonable set of points. This 
lets us use DATA sets and the 
PROCedure input.menu allows 
various other means of putting 
in points. With the PROCedure 
choose_options graphic 
choices menu you can clear 
the screen and combine the 
various Voronoi-Delaunay lines 
and points in different ways to 
see how they relate. Voronoi 
Regions will be shown in 
colors, and you can add the 
Points to see how they fit. 
Touching [S] in this graphic 
choice menu will save the 
screen into rami_scr#, Enjoy ! 


There has been a_ good 
amount written about the 
Delaunay-Vorono! diagrams, 
and many more efficient, faster 
etc. algorithms for doing them 
have been developed. Some 
algorithms allow insertion and 
removal of new points to 
existing sets. The concepts 
have also been extended to 
3D and higher dimensions, and 
there are other ways of 
measuring distances, weighting 
the points, etc. so the topic is 
stil being researched and 
developed with applications in 
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many diverse disciplines. 1710 END FOR j 
1720 END IF 


i j 1730 END FOR i 
Next time we might g0 back 1740 IF NOT(swaps) : EXIT bubl_gort_1 
and explore some of the 1750 END REPeat bubl_sort_1 
subsets of ?2D Delaunay 1760 PRINT #0;'1ist sort completed', 

; : 1770 :: 
triangulations such aS the 1780 REMark now sort edges by 2nd element 
Convex Hull, the Gabriel graph, 1790 RePeat bubl_sort_2 
i ; 1800 swaps = 0 

and the Minimal Spanning Tree. —ig19 For i = 2 70 Dedg(0,0) 
aS : 1820 IF (Dedg(i-1,1) = Dedg(i,1)) THEN 
I've just received a disk (Febru- 4339 ~—s IF Dedg(i-1,2) » Dedg(i,2) THEN 
ary 15, 2002) and documen- ee ee 
tation from Stephen Poole with {830 SWAP Dedg(3-1,2) ,Dedg( 1,2) 


a much shorter program done — 1870s END IF 

in i 1880 END FOR i 
by him Mn 1988 to demonstrate 1890 IF NOT(swaps) : EXIT bubl_sort_2 
Voronoi diagrams. Thank you 1900 END REPeat bubl_sort_2 


Stevel \'I| have a look and hope 1910 PRINT #0;'2nd sort completed', 
‘ 1920 :: 
to pass it along as well. 1930 REMark eliminate nulls and duplicate edges 
: er . 1940 nulls = 0 
Still on my to-do list is pulling 1950 For i = 1 70 Dedg(0,0) 
i 1960 IF NOT(Dedg(i,1)) THEN 
the Gee Graphics series toge Soh Saati eae 
ther for posting on Dilwyn 1980 FOR j = i 10 Dedg(0,0)-1 


Jones website, where you can = 1990— FOR jj = 0 T02 


age : 200 Dedg(j,jj) = D j+1, jj 
download the listings instead of — 3oip uum gggdd? = Dealt JN) 
having to type them in. 2020 END FOR j 
2030 END IF 


i | . 2040 END FOR i 
Biographical Footnotes: The 2050 Dedg(0,0) = Dedg(0,0) — nulls 


personal relationship between —2960_REPeat dupes_out 
Voronoiior Voronoy?} and an aes = : ee el 
= EU ,0)— 
Delaunay {or Delone?), 2090 iP (Dede (544), 1)-Dedg(4,1)) AND (Dedg((i+1),2)=Dedg(i,2)) THEN 
: ; upes = dupes + 
These were interesting folks 2110 Dedg( (i) ,0)=Dedg((i),0) + Dedg(i+1,0) 
who lived in interesting times. 312° fo Praares pelle 
Don't we all l ae peietd 4) = Dedg(j+1, jj) 
fe : JJ 
Voronoi is the French version of = 2160 ~—sEND FOR j 
Voronoy (Voronoi?) Georgy 217 pede (0,0) = Dedg(0,0) -1 
(Georgii?) Fedoseevich V 2190 ann IF 
(1868-1908), Ukranian, born and on Eat ene , 
: : upes) : upes_ow 
buried in Zhuravka. 2220 END REPeat dupes_out 
. ‘ 2230 PRINT #0;'duplicates removed! 
Delaunay is the French version 2240 PRINT #0, 'redimensioning arrays, associating triangles with edges! 
of Delone. According to John 227" hwti_edge ne bslath ‘ 
Conway, the family came to 3579 IF Dedg(i,0) = 1: nulledge = hulledge + 1 


Russia from Ireland as merce- 2280 END FOR i 


; i : 2290 :: 
Hanes during the Napoleonic 2300 REMark now we can shorten the lists 
Wal. 2310 REMark first put Dtri into a Temp array 


2320 DIM Temp(Dtri(0,0),DIMN(Dtri,2)) 
Boris Nikolaevich D(1890-1980), a ee bac és 
Russian, born St. Petersburg. 3369 temp(i,j)=ptri(i,j) 
Enjoyed and excelled in 2360 END FoR j 
mountain climbing. High ener- 332) SND FOR 2 
SY, higher mathematics, higher 2390 REMark now redimension and refill Dtri 


2400 DIM Dtri(DIMN(Temp) ,DIMN(Temp, 2) ) 
dimensions, and higher peaks. See ae tia ea) =» 
tee 4, ee ; 
Dmitri K Faddeev(i906-1989). 375) “ld.jy meen gy 
was a Student of and co-author — 2440 END FOR j 


with Delaunay The following 2730 END For 
excerpts are from ; his 100th 2470 REMark now do the same for the edges 
anniversary dedication (1) to 2480 DIM Temp(Dedg(0,0),2) 

2490 FOR i = 0 TO DIMN(Temp) 
Delone: 2500 FOR j = 0 TO DIMN(Temp,2) 
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2510 Temp(i,j) = Dedg(i,j) 

2520 END FOR j 

2530 END FOR i 

2540 :: 

2550 REMark now redimension Dedg to show which Dtri's apply 
2560 REMark elements 3, 4 will refer to both of the following: 
2570 REMark Delaunay triangles and corresponding Voronoi points 
2580 DIM Dedg{DIMN(Temp),4) 

2590 FOR i = 0 TO DIMN(Temp) 

2600 FOR j = 0 TO DIMN(Temp, 2) 

2610 Dedg(i,j) = Temp(i,j) 

2620 END FOR j 

2630 END FOR i 

2640 DIM Temp(0) : REMark now finished with Temp 

2650 :: 

2660 REMark now which Dtri apply to which edges ? 

2670 FOR i = 1 TO DIMN(Dedg) 

2680 locate = 3 

2690 FOR j = 1 10 DIMN(Dtri) 

2700 found} = 0 

2710 FOR k = 1 T0 3 

2720 IF Dedg(i,i) = Dtri(j,k) :found3 = found3 + 1 
2730 END FOR k 

2740 found4 = 0 

2750 IF found3 THEN 

2760 FOR k = 1 TO 3 


2770 IF Dedg(i,2) = Dtri(j,k) :found4 = found4 + 1 
2780 END FOR k 
2790 END IF 


2800 IF found4 THEN 

2810 Dedg(i,loc_ate) = j : loc_ate = loc_ate + 1 

2820 END IF 

2840 END FOR j 

2850 END FOR i 

2860 END DEFine order_D_edges 

2870 : 

2880 DEFine PROCedure Voronoi 

2890 INK#0,4 

2900 IF NOT(Dtri(0,0)) : PRINT #0;'No Delaunay triangles found! ':RETurn 
2910 PRINT#0\"working out Voronoi points and edges" 

2920 REMark array Medg holds Midpoint of Delaunay edges 
2930 REMark elements 1, 2 = x, y coordinates at mid points of Dedg 
2940 DIM Medg(Dedg(0,0),2) 

2950 REMark Voronoi points (Delaunay points + Boundary points) 
2960 DIM Vpt((Dtri(0,0) + hull _edge),2) 

2970 REMark Voronoi edges with pointers to Vpts 

2980 DIM Vedg(DIMN(Medg), 2) 

2990 REMark 3 or more Vedges meet at each Voroinoi point 
3000 REMark work out Mid edge values 

3010 FOR i = 1 TO DIMN(Medg) 

3020 Medg(i,1)=(P(Dedg(i,1),1)+P(Dedg(i,2),1))/2 

3030 Medg(i,2)=(P(Dedg(i,1) ,2)+P(Dedg(i,2),2))/2 

3040 END FOR i 

3050 INK 7 

3060 :: 

3070 REMark work out Voronoi points with circ3pts FuNetion 
3080 FOR i = 1 TO (DIMN(Vpt)-hull_edge) 

3090 DIM Tri_Pts(3,2) 

3100 FOR j = 1 T0 3 

31140 FOR k = 1 T0 2 

3120 Tri_Pts(j,k) = P(Dtri(i,j),k) 

3130 END FOR k 

3140 END FOR j 


3150 Vpt(i,O) = circ3pts (Tri_Pts) : REMark radius 
3160 Vpt(i,1) = ex : REMark center x 
3170 =Vpt(i,2) = ey : REMark center y 


3180 END FOR i 
3190 :: 

3200 REMark for hull edges get boundary points 
3210 REMark first find average "center" of hull 
3220 midhx = 0: midhy = 0: hull_pts = 0 
3230 FOR i = 1 TO DIMN(Medg) 

3240 IF Dedg(i,0)=1 THEN 

3250 hull_pts = hull_pts + 2 

3260 midh_x = midh_x + P(Dedg(i,1), 
3270 midh_y = midh_y + P(Dedg(i,1), 


1) + P(Dedg(i,2),1) 
2) + P(Dedg(i,2),2) 


3280 END IF 
3290 END FOR i 
3300 :: 


3310 REMark use dedg(0,1 TO) to hold 
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"‘Delaunay’s father Nikolai Bori- 
sovich was a professor of me- 
chanics, he and Voronoi the 
mathematician knew — each 
other professionally. The youn- 
ger Boris D. was present at 
many of their conversations, 
and was much influenced by 
Voronoi. At the age of 14 Boris 
was listening to lectures by 
Hilbert and Minkowski. 


Boris was just entering Kiev 
University at the time of 
Voronol'’s death. 


The young Boris dedicated a 
paper to his father's friend and 
that's where his name became 
associated with these 
diagrams. 


Boris D. was gifted in many 
other ways, doing landscapes 
in olls at age 7, playing and 
composing music, building and 
flying five gliders between the 
age of 17 and 19. Boris D. was 
a well-known mountaineer and 
hiker climbed the highest 
peaks regularly, organized 
clubs, had a mountain peak 
named after him. 


Boris was a most energetic 
man, doing handstands and 
lecturing well into his 70's. He 
had a knack for illustrating 
difficult abstract mathematical 
concepts with understandable 
geometry.” 


(1) Proceedings of the Steklov 
Institute of Mathematics 
Volume 196, Issue 4, 1992. 


Editor’s Note: As the listing is 
very long this time, we have 
reduced the size of the listing 
slightly. We will try to make the 
listing available on the QL 
Today/Dilwyn’s Webseite very 
soon to save you from having 
to type it in. 
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PROGRAMMING 
Text 87 QD 98 £ 45.00 
£79.00 QD + QBasic £59.00 
Typset 94 £29.00 QD + Qliberator + QBasic £ 100.00 


Fountext 94 £ 39.00 Qliberator £50.00 
2488 drivers £ 29.00,| Master Spy v 3.3 £ 30.00 
QPTR £ 30.00 


Easyptr pt 1 & 2 (together) £ 30.00 

Text 87 is the only Qoos || Easyptr pt 3 (C library) £ 14.00 
/ SMSQ wordprocessor QMake £ 15.00 
capable of handliing the QMon /JMon £ 22.00 
full screen on the Aurora Basic Linker £19.00 
/ QXL/ QPC systems. New DISA 3 £31.00 


drivers are currently 
being written. 


QMenu £ 14.00 


SprinQtime 

Q Branch have two Aurora Motherboards and a couple of 
Qbide Hard disk interfaces for sale at silly prices. Snap a 
pair of them up now and we will give you a free QPlane. 
We also hope to be able to announce a _ new Iaser Printer 

driver for Text 87 at a show in the near future. Pop 
along to see us at one of the shows and we will give 
you details. 


Aurora Boards Complete : £ 50.00 
Qubide IDE intefaces ; £ 45.00 
BIG NEWS !! 


Price reductions for SMSQ/E and QPC 2 
See next page for details 


New Program 


o—z 


Just Words' by Geoff Wicks 


THESAURUS, STYLE CHECK 
£ 10,00 ea / ANY 2 PROGRAMS £ 18.00 / ALL 3 PROGRAMS £ 25.00 


(Includes Pointer and non-pointer driven versions) 
(P.E. versions need Hot_rext, WMAN and PTR_GEN or SMSQE to run ) 


UTILITIES 


Upgrades from previous versions £ 2.50 + S.A.E. New Manuals £ 1.50 FiFi 2 E 18.00 
QSup £ 28.00 

QL2PC QSpreadv3 £48.00 

ee Fo en QL to PC ale , uppott ‘ Cueshell 2 £ 15.00 
and much more ! 4 pM Qload/Qref £15.00 


th 
Only £10.00 now ™ Disk Mate5 —-£: 16.50 


QL Rhymes QPAC 1 £ 20.00 
Rhyming Dictionary x 10.00 QPAC 2 £ 40.00 
Spelling Crib : PD program £ 1.50 +SAE QTYP 2 £ 30.00 

or Free if you buy all three programs QLQ £ 28.00 


We are currently out of stock of the SuperBasic Reference Manual 
Place your order now to get one as soon as it is reprinted 
Over 500 


The SBASIC / Sup erBASIC Reference Manual Moa 


The complete definitive guide to iets programming in QDOS / SMSQ including 
three disks of PD toolkits, example procedures and an electronic index. £ 40.00 
+ postage 


compiled by Rich Mellor, Franz Hermann and Peter Jaeger 


News on the SuperBasic Reference Manual Coming soon ! 
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| Tel +44 (0) 1273-386030 fax +44 (0) 1273-430501 


i 
H 


O Branch 


Feeling out on a limb ? 

Reach out for O Branch. 
Suppliers of Quality QDOS/SMSO products 
Hardware and Software. 


20 LOCKS HILL, PORTSLADE, 
E. SUSSEX. BN41 2LB. UK. 


ProWesS 


ProWessS (now free !) 
DATAdesign 
Fontutils 


£ 1.60 
£ 20.00 
£ 28.00 
£11.00 
£ 11.00 
£ Call 


£ 22.00 
£17.50 


Paragraph 
The ProWesS word processor 


Demo version £ 1.50 + postage 
Full Registered version £ 18.00 


File Search 
PFlist 
Dilwyn's Fontpack 


LINEdesign v 2.16 
PWfile 


{ 
ersion 4.03 available now -: 


SMSQ/E 


Gold Card / Atari / QXL Version 
QPC 2 v3 full colour version! 


Now Only £ 65.00 


Special offer ! 
Get Cueshell for only £15.00 with any copy of SMSQ/E 
or QPC 2 upgrade } 


gta branch@qgbranch.demon.co.uk Web : hitp://9~w.qbranch.demon.co.uk 
Le 


New Fax Number 


We have a small stock of second user items. Auroras 
/ Qubides / Gold Cards / Qplanes / superHermes etc. 


s 


Mobile +44 (0) 7836-745501 


Hardware 


call us to get details of the items available. These 
are going fast so call soon. 


QXL II £ 100.00 
Recycled superHermes £ 65.00 * 


Recycled Gold Card £ 50.00 * 


Recycled Aurora See over 
Qubide See over 
Qplane £ 25.00 
Aurora cables £3.00 
Aurorarom adaptor £3.00 
‘Arfa Braquet' £ 8.00 
‘Son of Braquet' £18.00 
The 'Braquet’ £ 16.00 
MC plate £ 6.50 


* when available. 


Qubide upgrades to version 2.01 £ 8.00 


Now Only £ 32.00 


Various Atari versions : call for details 


Upgrades from QPC 1 £ 46.00 (etury 
Upgrades from QPC 2 v1 £ 30.00 
Upgrades from QPC 2 v2 £ 14.00 

If Bought/upgraded after 15/10/01 £ 5.00 


"Ster dish 


Q Branch Programs 


The Knight Safe 3 
upgrades from previous versions 


Q - Count 
Pointer driven home accounting 


£35.00 
£5.00 


£ 25.00 


Q - Route v1.08C £ 25.00 


Route finding programme 


The Fractal Collection £35.00 


Post and Packing is included with Software Prices 


QL loday 


We can accept payment by Visa, Mastercard and Switch. We also accept 
cheques drawn on a UK Bank in Sterling. 
You can also pay directly into our bank in Euros. 
Barclays Bank Acc# 79016888 sort code :20-71-02 Name :QBranch) 
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3320 REMark “average” center of the hull points 

3330 Dedg(0,1)=midh_x/hull_pts : Dedg(0,2)=midh_y/ 
hull pts 

3340 INK 4 

3350 REMark find intersection with appropriate edge 

3360 REMark and associate with appropriate Dtri and Vpt 

3370 REMark to build Vedg 

3380 von=0 

3390 vpn = DIMN(Dtri) 

3400 FOR i = 1 TO DIMN(Medg) 

3410 IF Dedg(i,0)=2 THEN 

3420 REMark interior edges have 2 adjacent triangles 

3430 vn=vnil 

3440 REMark build vedg 

3450 Vedg(v_n, 1)=Dedg(i, 3) 

3460 Vedg(v_n, 2)=Dedg(i,4) 

3470 REMark shared edge, 2 adjacent Dtri and 2 Vpts 

3480 ap IF 

3490 : 

3500 IF Dedg(i,0)=1 THEN 

3510 REMark hull edges have only i adjacent triangle 

3520 vn=vnel : Vpn = vpn¢+il 

3530 REMark is direction from 1 to 2 CW or CCW ? 


3540 x1 = Dedg(0,1) : y_1 = Dedg(0,2) 

3550 x2 = P(Dedg(i,1),1) : y_2 = P(Dedg(i,1),2) 
3560 ang 1 = angl frm (x1, y_1, x2, y_2) 

3570 x2 = P(Dedg(i,2),1) : v- 2= P(Dedg(i, 2) ,2) 
3580 ang_2 = angl frm (x1, y_1, x2, y_2) 


3590 inc_ang = ang_2 - ang_1 
3600 IF inc_ang « 0 :inec_ang 
3610 IF ine_ang « 180 : flip 
is cew 
3620 IF inc_ang » 180 : flip = 90 : REMark direction 
is ew 
3630 REMark hull edge direction = Hull_edgd_ang 
3635 heplx = P(Dedg(i,i),1) : heply = P(Dedg(i,1),2) 
3636 - hep2x = P(Dedg(i,2),1) : hep2y = P(Dedg(i,2),2) 
3640  Hull.edgd_ang = angl_frm(hepix, heply, hep2x, 
hep2y) 
3650 REMark Normal perpendicular away from convex hull is 
norm_ang 
3660  norm.ang = (Hull_edgd_ang + flip) 
3670 IF norm_ang » 360 : norm_ang = norm_ang - 360 
3680 IF norm.ang « 0 : norm_ang = norm_ang + 360 
3690 REMark find directions to far away corners of 
bounding box 
3700 FOR bL = 1 TO 4 
3710 box_L(bL,0)=angl_frm(Medg(i,1),Medg(i,2), 
box_L(bL, 1), box_L(bL, 2) ) 
3720 END FOR bL 
3730 REMark compare with norm_ang to find proper Boundary 
edge 
3740 FOR bL = 1 TO 4 


360 + inc_ang 
~90: REMark direction 


3760 IF (norm_ang >= box_L((CYC(bL,4)),0)) THEN 
3770 IF (norm_ang < box_L((CYC(bL+1,4)),0)) THEN 
3780 box_edge = bl 

3790 END IF 


3800 END IF 

3810 END FOR bL 

3820 REMark special case for right side 360 to 0 degrees 
transition 

3830 IF (norm_ang >= box_L(4,0)) OR (norm_ang <= 
box_L(1,0)):box_edge = 4 


3840 :: 

3850 SELect ON box_edge 

3860 = 1 

3870 dy = box_L(1,2)~Medg(i,2) 

3880 dx = dy*TAN(RAD(90-norm_ang) ) 
3890 Vpt(v_pn,1) = Medg(i,1)+dx 
3900  Vpt(v_pn,2) = box_L(1,2) 

3910 =2 

3920 dx = ~(box_L(2,1)—Medg(i,1)) 
3930 dy = dx¥TAN(RAD(180-norm_ang) ) 
3940 Vpt(v_pn,2) = Medg(i,2)+dy 
3950 Vpt(v_pn,1) = box_L(2,1) 

3960 = 3 

3970 dy = ~-(box_L(3,2) ~ Medg(i,2)) 


3980 «dx = dy*TAN(RAD(norm_ang-270)) 
3990 Vpt(v_pn,1) = Medg(i,1)+dx 
4000  Vpt(v_pn,2) = box_L(3,2) 
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4010 
4020 
4030 
4040 
4050 
4060 


4070 


4080 :: 


4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 


=4 
dx = box_L(4,1) - Medg(i,1) 
dy = dx*TAN(RAD(norm_ang)) 
Vpt(v_pn,2) = Medg(i,2)+dy 
Vpt(v_pn,1) = box_L(i,1) 

= REMAINDER : PRINT #0\"(in Voronoi) which boundary 

2" : STOP 
END SELect 
Vedg(v_n,0) = i 
Dedg(i,4) = v_pn 
Vedg(v_n,1) = Dedg(i,3) 
Vedg(v_n,2) = v_pn 

END IF 

END FOR i 

INK 7 

elapsed_time = DATE -— start 


4170 END DEFine Voronoi 


4180 : 
DEFine FuNetion cire3pts (Tri_Pts) 
LoCal i 


4190 
4200 


4210 REMark Radius and Center of Circumscribing Circle 


4220 REMark of triangle described by three points 
4230 REMark adapted from Graphic Gems I, page 20 Ronald 
Goldman 
4240 REMark uses 3 points, each of which has x and y 
coordinates 
4250 REMark DIM Tri_Pts(3,2) and fill BEFORE calling this 
FwWetion 
4260 REMark Tri_pts is array of three points with x,y 
values 
4270 REMark where p(1,1)= x1, p{1,2)=y1, ete 
4280 DIM tri.d(3) : REMark uses scalars tri_d(1 to 3) 
4290 DIM tri_c(3) : REMark and c values tri.c({1 to 3) 
4300 REMark uses vector values and vector differences 
4310 DIM Vec_val(2,2) : REMark calls for Dot_Product, 
Vec_Diff 
4320 :: 
4330 REMark get 3 tri_d values 
4340 FOR i = 1 T0 3 
4350 Vece_val(1,1)= Vec_diff(Tri_Pts(CYC(i~1,3)), 
Tri_Pts(i)) 
4360  Vec_val(1,2)= vecydif 
4370 Vec_val(2,1)= Vec_diff(Tri_Pts(CYC(i+1,3)), 
Tri_Pts(i)) 
4380 Vec_val(2,2)= vecydif 
4390  tri_d(i)=Dot_Prod(Vec_val) 
4400 END FOR i 
4410 :: 
4420 REMark now the 3 tri_e values 
4430 FOR i = 1 TO 3 
4440 triie(i) = tri_a(CYC(i+1,3)) * tri_a(cYc(i+2,3)) 
4450 END FOR i 
4460 :: 
4470 FOR i = 1 T0 3 
4480 = tri.c(0) = tri_c(0)+tri_e(i) 
4490 END FOR i 
4500 IF NOT(tri.c(0)) THEN 
4510 PRINT #0\"(circ3pts) colinear or duplicate points 
2" :PAUSE 
4520 im IF 
4530 : 
4540 REMark now the radius 
4550 TriRad = 1 
4560 FOR i = 1 TO 3 
4570 TriRad = Tri_Rad *(tri_d(i)+tri_d(CYC(i+1,3))) 
4580 END FOR i 
4590 IF tri_c(0) THEN 
4600 TriRad = (SQRT(Tri_Rad/tri_c(0)))/2 
4610 ELSE 
4620 Tri_Rad = 0 
4630 END IF 
4640 :: 
4650 DIM tri_Ctr(2) 


4660 
4670 
4680 
4690 
4700 


REMark now the center x and y 
IF Tri_Rad THEN 


tri_Ctr(0) = Tri-Rad 
FOR i = 1 TO 3 
tri_Ctr(0)=(tri_c(C¥C(i+1, 3) )+tri_e(CYC(i-1,3))) 
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triCtr(1) + tri_Ctr(0)*TriPts(i,1) 
tricCtr(2) + tri_Ctr(0)*Tri Pts(i,2) 


4710 trictr(1) 

4720  tri_Ctr(2) 

4730 END FOR i 

4740 triCtr(0) 

4750 triictr(i) 

4760  tri_Ctr(2) 

4770 END IF 

4780 cr = triCtr(O) : REMark radius of circle 

4790 ex = tri_Ctr(1) : REMark x-coordinate of center 

4800 ey = tri_Ctr(2) : REMark y_coordinate of center 

4810 RETurn cr 

4820 RETurn cx 

4830 RETurn cy 

4840 END DEFine : REMark FuNction circ3pts (Tri_pts) 

4850 : 

4860 DEFine FuNetion Vec_diff(pointi, point2) 

4870 veexdif = pointi(1) - point2(1) 

4880 veeydif = pointi(2) — point2(2) 

4890 RETurn vecxdif 

4900 RETurn vecydif 

4910 END DEFine :REMark FuNetion Vec_diff 

4920 : 

4930 DEFine FuNetion Dot_Prod(vectors) 

4940 RETurn vectors(1,1)*vectors(2,1) + vectors(1,2)* 
vectors(2,2) 

4950 END DEFine : REMark FuNetion Dot_Prod 

4970 : 

4980 DEFine PROCedure show_regions 

4990 FOR region = 1 TO DIMN(P) 

5000 REMark collect relevant triangles and hull edges 

5010 p$ = '' : p_count = 0 

5020 FOR tri = 1 TO DIMN(Dtri) 

5030 FOR pt = 1 T0 3 

5040 IF region = Dtri(tri,pt) THEN 

5050 ReEMark add to list 


ihooth 


Tri_Rad 
tri_Ctr(1)/(2*tri_e(0)) 
tri_Ctr(2)/(2*tri_c(0)) 


Hot ot 


ou 


5060 IF NOT(tri INSTR p$) THEN 
5070 p_count = p_count + 1 
5080 pS = p$ & tri & '#! 

5090 END IF 

5100 END IF 


5110 END FOR pt 

5120 END FOR tri 

5130 FOR Hull_edg = 1 TO DIMN(Dedg) 

5140 REMark find a hull edge with the point on it 

5150 IF (Dedg(Hull_edg,0)=1) THEN 

5160 IF ((Dedg(Hull_edg,1)=region) OR 
(Dedg(Hull_edg,2)=region)) THEN 

5170 REMark that's an indicator of a wanted hull edge 

5180 REMark that would have generated a boundary point 

5190 REMark check that we haven't used it before 


5200 IF NOT(Dedg(Hull_edg,4) INSTR p$) THEN 
5210 p_count = p_count +1 
5220 p$ = p$ & Dedg(Hull_edg,4) & '#! 


5230 REMark added the boundary point to the list 

5240 END IF 

5250 END IF 

5260 END IF 

5270 END FOR Hull_edg 

5280 DIM Region Pts(p_count, 1) 

5290 array_index = 0 

5300 REPeat stuff_array 

5310 array_index = array_index +1 

5320 IF array_index >» p_ count : EXIT stuff_array 

5330 string_index = '#' INSTR p$ 

5340 IF NOT(string_index) : EXIT stuff_array 

5350 Region _Pts(array_index,0) = p${1 TO (string index 
- 1)) 

5360 xis 

5370 X.2 = Vpt(Region Pts(array_index,0),1) 

5380 y2 = Vpt(Region Pts(array_index,0),2) 

5390 Region Pts(array_index,1)=angl_frm (x1, y_1, 
X2, y_2) 

5400 IF (string_index +1)«LEN(p$) : p$ = p${ 
(string_index + 1) To ) 

5410 END REPeat stuff_array 

5420 REPeat bubl_sort_0 

5430 swaps = 0 

5440 FOR bub = 2 TO p-count 

5450 IF Region Pts(bub,1)<Region_Pts((bub-1),1) THEN 

5460 swaps = swaps + 1 


P(region,1) : y_1 = P(region,2) 
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5470 
5480 
5490 
5500 
5510 
5520 


5530: 


5540 
5560 


5570 
5580 


5590 
5600 
5610 
5630 


5660 
5670 
5680 
5690 
5700 
5710 
5720 


SWAP Region _Pts(bub,0),Region_Pts((bub-1),0) 
SWAP Region _Pts(bub, 1) ,Region_Pts((bub-1),1) 
END IF 
END FOR bub 
IF NOT(swaps) :EXIT bubl_sort_0 
END REPeat bubl_sort_0 


INK (( region ¥ 15 ) MOD 256 ) : FILL 1 
POINT Vpt(Region Pts(p_count,0),1), Vpt(Region_Pts 
(p_count, 0), 2) 

FOR side = 1 TO p_count 
LINE TO Vpt(Region Pts(side,0),1), Vpt(Region Pts 
(side,0),2) 

END FOR side 

FILL 0 : INK 7 

END FOR region 


END DEFine show_regions 
5640 : 
5650 DEFine PROCedure show_triangles 


INK 7 
FOR i = 1 TO DIMN(Dtri) 
POINT P(Dtri(i,3),1),P(Dtri(i,3),2) 
FOR j = 1 103 
LINE TO P(Dtri(i,j),1),P(Dtri(i,j),2) 
END FOR } 
END FOR i 


5730 END DEFine show_triangles 


5740 
5750 
5760 
5770 
5780 


5790 
5800 
5810 


5820 


5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 


5990 


6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 


DEFine PROCedure choose_options 


CLS# 0 : INK #0;7 
PRINT #0; data_source$!!elapsed_time ! 'seconds,'! !! 
PRINT #0;Dtri(0,0) ! 'triangles,' !! Dedg(0,0) ! 
‘edges,' !! 
PRINT #0;hull_edge ! 'on hull! 
PRINT #0;"touch [P] key for Delaunay [PJoints, "; 
PRINT #0;"[T] key for Delaunay [T]riangles" :INK 
#0, 4 
PRINT #0;"{E] key for Voronoi [E]dges, [V] for 
[Vjertices, "; 
INK #0, 2: PRINT #0 ;"[R] for [R]egions" :INK #0,4 
PRINT #0;" [ESC] to Exit, [C] to [C]lear screen,"; 
PRINT #0;" [space bar] for Input Menu" 
REPeat query 

ans$ = INKEY$({~1) 

IF ans$ = CHR$(248) : PAUSE 

IF ans$ = CHR$(27) OR ans$ = CHR$(32) : EXIT query 
IF ans$ == 'c' :CLS 

IF ans$ == 'r' THEN 

show_regions : show_vedges 

END IF 

IF ans$ == 'p' THEN show_points 

IF ans$ == 't' THEN show_triangles 
IF ans$ == ‘e' THEN show_vedges 

IF ans$ == 'v' THEN show_Vpoints 


REMark added ‘undocumented' provision for saving 
sereens 


I 


F ans$ == 's' THEN SBYTES_O ‘rami_ser'&sn,2°17,2°15 


: sn =sn+1 


END REPeat query 
IF ans$ = CHR$(27) : CLS : CIS #0 : STOP 
choose_input 


END DEFine choose_options 


DEFine PROCedure show_vedges 


INK 4 
FOR i = 1 10 DIMN(Vedg) 

POINT Vpt(Vedg(i,1),1), Vpt(Vedg(i,1),2) 
LINE TO Vpt(Vedg(i,2),1), Vpt(Vedg(i,2),2) 
END FOR i 


END DEFine show_vedges 


DEFine PROCedure show_Vpoints 


FOR i = 1 TO DIMN(Vpt) 

INK 0 :FILL 1 

CIRCLE Vpt(i,1),Vpt(i,2),ws/24 
FILL 0 :INK 4 

CIRCLE Vpt(i,1),Vpt(i,2),ws/24 
CURSOR Vpt(i,1),Vpt(i,2) ,-3*(1+(INT(LOG10(4)))),-4 
PRINT i 
END FOR i 
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6230 END DEFine show_Vpoints 

6240 : 

6250 DEFine PROCedure choose_input: 

6260 REMark gives choice of READ'ing in DATA 

6270 REMark or creating Random set of points 

6280 REMark or allowing user Keyboard input 

6290 REMark or nearly regular Grid patterns 

6300 WINDOW ww,wh,wx,wy : BORDER bw ,4 

6310 PAPER #0, 7: INK #0, 0 : sn = 0 : REMark sn = 
sereen save number 

6320 REPeat get_input_source 

6330 cCLS#0 

6340 PRINT #0;'Please Choose Source for Data' 

6350 PRINT #0;'[DJATA sets, [R]andom points, [K]eyboard 

inputs, [G]rids' 

6360 PRINT #0\\' [ESC] to exit! 

6370  inp$ = INKEY$(-1) 

6380 IF inp$=CHR$(27): PAPER #0,0 : 

STOP 

6390 IF inp$ == 'd' OR inp$ == 'r' : EXIT 
get_input_source 

6400 IF inp$ == 'k' OR inp$ == 
get_input_source 

6410 END REPeat get_input_source 

6420 PAPER#0,0 : INK#0,2 : CLS#0 


INK #0,4 : CLS #0 : 


tg! : EXIT 


6430 IF inp$ == 'd' : data_menu 
6440 IF inp$ == 'r' : rando_menu 
6450 IF inp$ == 'k' : keybd_menu 
6460 IF inp$ == = tg! : grids _menu 
6470 get_limits : set_window 


6480 Delaunay : order_D_edges 

6490 Voronoi : choose_options 

6500 END DEFine choose_input 

6510 : 

6520 DEFine PROCedure get_limits 

6530 REMark find limits of x and y, preprocess 2 

6540 minx = 1E6 : max_x = -1H6 : min_y = minx : maxy 


= max_x 
6550 FOR i=1TON 
6560 IF P(i,1)»max_x : max_x = P(i,1) 
6570 IF P(i,1)<min_x : minx = P(i,1) 
6580 IF P{i,2)»max_y : max_y = P(i,2) 
6590 IF P(i,2)cmin_y : min_y = P(i,2) 
6600 P(4,3)= P(i,1)°2 + P(4,2) °2 


6610 END FOR i 

6620 END DEFine get_limits 

6630 : 

6640 DEFine PROCedure set_window 

6650 REMark work out image parameters 

6660 REMark use 10% for margins (total of 20%) 

6670 h_range = max_x — min_x 

6680 mid_x = (max_x + min_x)/2 

6690 v_range = max_y ~— min_y 

6700 midy = (max_y + min_y)/2 

6710 window_aspect = (graspix*(ww—4*bw) ) /(wh-2*bw) 

6720 image_aspect = h_range/v_range : REMark 
width/height 

6730 REMark what is relation between window and image ? 

6740 window2image = window_aspect/image_aspect 

6750 IF window2image »= 1 THEN 

6760 REMark it should fit across ok, but height governs 

6770 ws = vrange¥l.2  : REMark adding 20% 

6780 gw = (ww-4*bw)/(wh-2*bw) * graspix * (ws) 


6790 xoff = minx - (gw ~ h_range)/2 
6800 y_off = min_y ~ (.1%v_range) 
6810 ELSE 


6820 REMark it will fit up & down ok, but width governs 

6830 ws = (h_range¥1.2)/window_aspect:REMark adding 20% 

6840 gw = (ww-4¥bw)/(wh-2*bw) * graspix * (ws+1) 

6850 y_off = min_y ~ (ws ~ v_range)/2 

6860 x_off = minx ~ (.1%h_range) 

6870 END IF 

6880 REMark use offsets to center image on screen 

6890 SCALE ws, x_off, y_off : PAPER 0:INK 7: CLS 

6900 nudge = ws * 1E-5 

6910 REMark set up distant way-off-sereen bounding box 

6920 DIM box_L(4,2) : REMark 4 box corners 

6930 margin = -ws*16 

6940 box_L({1,1) = +(gw-margin)/2 : 
+(ws-margin) /2 


box_L(1,2) = 
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box_L(2,2) 


6950 box_L(2,1) 


= -(gw-margin)/2 : 
+(ws-margin) /2 


6960 box_L{3,1) = -(gw-margin)/2 : box_L{3,2) = 
—(ws~margin) /2 
6970 box_L(4,1) = +(gw-margin)/2 : box_L(4,2) = 


—(ws-margin) /2 
6980 END DEFine set_window 


7000 DEFine PROCedure data_menu 

7010 PRINT #0;"DATA sets from the following are in the 
listing:" 

7020 PRINT #0;"touch [boxed] key" 

7030 PRINT #0;' [C]atmog45C, [G]reen-Sibson, '; 

7040 PRINT #0;'[Bljowyer, [P]reparata' 

7050 PRINT #0;" [O]'Rourke, [K]lette, O'[R]ourke" 

7060 PRINT #0\\"[ESC] to Exit, [space bar] for 
input_menu" 

7070 REPeat get_set 

7080 set$ = INKEY$(~1) 

7090 +=IF set$=='c' OR set$ == 'g' :EXIT get_set 

7100 IF set$=='b' OR set$ == Sart :EXIT get_set 

7110 IF set$=='o' OR set$ == 'k' : EXIT get_set 

7120 IF set$=='r' ; EXIT get_set 

7130 IF set$ = CHR$(27) OR set$ = 

7140 END REPeat get_ set 

7150 IF set$ == 'c' : RESTORE 8530 : 

7160 IF set$ == 'g! : RESTORE 8640 : 

7170 IF set$ == 'b! : RESTORE 8720 : 

7180 IF set$ == 'p' : RESTORE 8800 : 

7190 IF set$ == 'o! : RESTORE 8890 : 

7200 IF set$ == 'k' ; RESTORE 8970 : read_into_P_array 

7210 IF set$ =- 'r'! Pgs 9060 : read_into_P_array 

7220 IF set$ = “CHRS(27) : : CLS#0 : STOP 

7230 IF set$ = CHR$(32) : teak Genk 

7240 END DEFine data_menu 


CHR$(32):EXIT get_set 


read_into_P_array 
read_into_P_array 
read_into_P_array 
read_into_P_array 
read_into_P_array 


7260 DEFine PROCedure rando_menu 

7270 PRINT "Default SEED is 42" 

7280 INPUT 'you may now ENTER a SEED if you wish —>'; 
seed$ 

7290 IF seed$ = ''! 

7300 seed = seed$ 

7310 RANDOMISE seed 

7320 REPeat num_pts 

7330 N=0 

7340 INPUT "How many points? ENTER 3 or more —»";num$ 

7350 IF num$ «> '! : N = num$ 

7360 %XIFN»> 2: EXIT numpts 

7370 END REPeat num pts 

7380 data_source$ = ‘random('&seed$&')set, '&N&' points! 

7390 DIM P(N,3) 

7400 PRINT \," Default X and Y limits are : " 

7410 PRINT ,,"X from 0 to ";INT( (ww-4*bw)*graspix);" 
across" 

7420 PRINT ,,"Y from 0 to ";INT(wh-2*bw);" high" 

7430 PRINT \," [ENTER] for these default limits or " 

7440 PRINT ," touch 'S' to [S]Jet them yourself " 

7450 REPeat limit _input 

7460 lim$ = INKEY$(-1) 

7470 IF (lim$ == 's') OR (lim$ = 
Limit_input 

7480 END REPeat limit_input 

7490 mnxv = 0 : mxxv = INT((ww-4*bw) *graspix) 

7500 mnyv = 0 : mxyv = INT(wh-2*bw) 

7510 xv_range = mxxv — mnxv 

7520 yv_range = mxyv — mnyv 


: seed$ = '42! 


CHR$(10)) : EXIT 


iow 


7540 IF lim$=='s' THEN 

7550 INPUT "maximum x-value ? (default is "&mxxv&")"; 
mxxv$ 

7560 IF mxxv$ = '' : mxxv$ = mxxv 

7570 mxxv = mxxv$ 

7580 INPUT "minimum x-value ? (default is 0) ";mnxv$ 

7590 IF mnxv$ = ''! : mxv$ = '0'! 

7600 = =mnxv = mnxv$ 

7610  xv_range = mxxv ~ mnxv 

7620 INPUT "maximum y-value ? (default is 

"Smxyve")" smxyv$ 

7630 IF mxyv$ = '' : mxyv$ = 

7640 mxyv = mxyv$ 
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7650 INPUT "minimum y-value ? (default is 0) ";mnyv$ 
7660 IF mnyv$ = '' : mnyv$ = ‘0! 

7670 mnyv = myv$ 

7680 yv_range = mxzyv ~- mnyv 

7690 END IF 

7700 FORi-=1TON 

7710 P(i,1) = mnxv + RND * (xv_range) 

7720 + P(i,2) = mnyv + RND * (yv_range) 

7730 END FOR i 

7740 END DEFine rando_menu 

7750 : 

7760 DEFine PROCedure keybd_menu 

7770 INPUT 'how many points ? ';N 

7780 data_source$ = 'keyboard input of '&N& points! 
7790 DIM P(N,3) 

7800 FOR i-=1i1TON 

7810 INPUT 'x value for point '&i&! ? ';P(i,1) 

7820 INPUT 'y value for point '&ik' ? ';P(i,2) 

7830 END FOR i 

7840 END DEFine keybd_menu 

7850 : 

7860 DEFine PROCedure grids_menu 

7870 PRINT #0;" [T]riangles or [S]quares ? " 

7880 REPeat get_pattern 

7890  pat$ = INKEY$(~1) 

7900 IF pat$=='t' OR pat$ == 's! 
7910 END REPeat get pattern 
7920 IF pat$=='t' : shape$=' triangles ':ff= (Sarr (3))/2 
7930 IF pat$=='s' : shape$=' squares ' :ff = 

7940 REMark default graphic pixel area of See 

7950 window_area = ((wh-2*bw) *(ww4%bw)* graspix) 
7960 INPUT#0O; "about how many"&shape$&"? ",num_of_shps 
7970 REMark area of a single shape 

7980 shape_area = window_area / num_of_shps 

7990 IF pat$ == 's' : base_len = SQRT( shape_area / ff) 
8000 IF pat$ == 't' : base_len = SQRT({ shape_area * 


: EXIT get_pattern 


8010 s_across = 1+INT( ((ww-4*bw)%graspix) /base_len) 

8020 s_stacks = 2+INT((wh-2*bw)/(base_len * ff)) 

8030 IF pat$ == 's' : PRINT#0; (s_across—i)* 
(s_stacks-1); shape$ 

8040 IF pat$ == 't' : PRINT#0; 2*(s_across—1)* 
(s_stacks~1); shape$ 

8050 N = s_across * s_stacks 

8060 PRINT#0;N;' points! 

8070 data_source$ = ‘grid of '&num_of_shps&shape$ 

8090 DIM P(N,3) 

8100 p.n=0 

8110 REMark a nudge to head off 'degeneracies' 


8120 nudge = (wh - (2 ¥ bw)) * 18-5 
8130 FOR i = 0 TO s_across-1 
8140 FOR j = 0 TO s_stacks~1 


8150 pn=pnet+il 

8160 P({p_n,1) = i * base_len 

8170 REMark leave edges of convex hull as convex ! 
8180 IF (pat$ == 's') THEN 

8190 IF (i «> 0) AND (i «> s_aeross -1) THEN 
8200 P(p_n,1) = P(p_n,i) + ((1 + RND) * nudge) 
8210 END IF 

8220 END IF 

8230 IF pat$ =='t' THEN 

8240 P(p_n,1)=P(p_n,i)+ .5%(j MOD 2)*base_len 
8250 END IF 

8260 P(p_n,2) = j ¥* base_len * ff 

8270 END FOR j 

8280 END FOR i 

8290 END DEFine grids_menu 

8300 : 

8310 DEFine PROCedure read_into_P_array 

8320 REMark P is array of N Delaunay Points 

8330 REMark elements 1, 2 are the x, y values, 
8340 REMark element 3 is a calculated z2-value 
8350 CLS#0 : READ N : DIM P({N,3) 

8380 FOR i = 1 TON 

8390 READ P(i,1) 

8400 END FOR i 

8410 FOR i=1TON 

8420 READ P{i,2) 

8430 END FOR i 

8440 READ data_source$ 
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8450 data_source$ = data_source$&'('&N&')! 
8460 END DEFine read_into_P_array 


8480 REMark sets of DATA from references shown 
8490 REMark Number of points first 

8500 REMark then x-values for points 

8510 REMark then y-values for points 

8520 REMark then any string$ for data_source$ 
8530 : 

8540 REMark Catmog45C figure 2 data 

8550 REMark ref: "Voronoi (Thiessen) Polygons" 
8560 REMark by B.N. Boots 1986 

8570 REMark Institute of British Geographers 

8580 REMark Geo Books, Norwich, UK 

8590 DATA 10 

8600 DATA 38, 45, 70, 58, 92, 87, 115, 117, 113, 80 
8610 DATA 82, 61, 71, 52, 40, 66, 88, 55, 50, 89 
8620 DATA "Catmog45C" 

8630 REMark end of DATA from Catmog45C 

8640 : 

8650 REMark Green-Sibson Figure 1 data 

8660 REMark ref: Computer Journal V 21 N 2 1978 
8670 DATA 12 

8680 DATA 35, 81, 90, 62, 50, 50, 54, 82, 60, 51, 35, 61 
8690 DATA 89, 89, 81, 78, 74, 60, 58, 50, 43, 36, 34, 19 
8700 DATA "Green-Sibson" 

8710 REMark end of DATA for Green-Sibson 

8720 : 

8730 REMark Bowyer Figure 3 data 

8740 REMark ref: Computer Journal V 24 N2 1981 
8750 DATA 8 

8760 DATA 73, 22, 29, 49, 30, 75, 19, 87 

8770 DATA 70, 52, 64, 51, 33, 20, 62, 52 

8780 DATA "Bowyer" 

8790 REMark end of DATA for Bowyer 

8800 : 

8810 REMark Preparata & Shamos data 

8820 REMark ref: Computational Geometry 1985 

8830 DATA 16 

8840 DATA 32, 50, 18, 28, 36, 49, 61, 12 

8845 DATA 22, 31, 56, 29, 19, 43, 41, 58 

8850 DATA 44, 41, 36, 35, 37, 32, 34, 27 

8855 DATA 26, 27, 23, 18, 15, 16, 10, 12 

8860 DATA "Preparata & Shamos" 

8870 REMark end of DATA for Preparata & Shamos 
8880 : 

8890 REMark O'Rourke data for code51 

8900 REMark ref: Computational Geometry in C, 1998 
8910 DATA 10 

8920 DATA 31, -13, -63, -5, 87, 40, 23, 64, 0, -14 
8930 DATA ~76, 21, -83, -66, -94, 71, -46, -80, ~57, 2 
8940 DATA "O'Rourke Fig. 5.29" 

8950 REMark end of DATA for O'Rourke 

8960 : 

8970 REMark Kiette data 

8980 REMark has known degeneracy with 4 co~circular 
points 

8990 REMark Reinhard Klette lecture notes 

9000 DATA 10 

9010 DATA 0, 1, 2, 2, 3, 4, 4, 5, 6, 7 

9020 DATA 3, 6, 1, 4, 4, 1, 3, 5, 1, 4 

9030 DATA "Klette" 

9040 REMark end of DATA for Klette 

9050 : 

9060 REMark O'Rourke Fig. 5.5 

9070 DATA 20 

9080 DATA 75, 80, 48, 63, 86, 97, 90, 107, 48, 102 
9090 DATA 85, 113, 77, 97, 103, 47, 101, 120, 118, 70 
9100 DATA 105, 96, 91, 91, 89, 89, 88, 88, 77, 76 
9110 DATA 71, 70, 65, 65, 65, 53, 44, 29, 26, 24 
9115 DATA "O'Rourke Fig5.5" 

9120 : 

9130 REMark add the following (used in GG#24 )to this 
listing: 

9140 REMark FuNction dist_btwn(xpt, ypt,x,y) 

9150 REMark FuNetion ang] _frm(xf,yf,xt,yt) 

9160 REMark PROCedure SWAP (ni,n2) 

9170 REMark FuNction CYC (Number, cycle_length?) 
9180 : 

9190 REMark end of Listing D2V_bas 
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QPCPrint - or how to invent the 


wheel again 


Ewald fkemann 


| have used QPC for a short 
while, although not as much as 
it should be. | really like SMSQ 
and the QL and everything 
related to it. | was very active in 
the scene some years ago, but 
my job education forced me to 
change to a PC with DOS and 
Windows. When | heard about 
QPC2 | had a look upon it and | 
was convinced by QPC2V3. All 
works fine except printing... 

Most of the printers you can get 
nowadays are GDI-Windows 
printers with a minimum of their 
own intelligence. A simple 
printing to pari would not give 
the results you would expect. 
The most used make of printer 
in the QL scene is Epson with 
its ESC/P2 standard. So why 


The first problem was: Is Win- 
dows able to print all of the 
SMSQ characters? Native Win- 
dows ASCII isn't, but the stan- 
dard called Unicode is. Normal 
ASCIl uses 8 bits to code the 
characters whereas Unicode 
uses 16 bits for this. Unfortu- 
nately not every Windows font 
supports all characters and 
only some (Arial, Times Roman 
and Courier New) support all 
the characters SMSQ_ uses. 
The other fonts omit the 
characters 172 to 176, 178 and 
188 to 191 and instead of the 
currency symbol 183 there is 
another Euro sign.. 

The next item was to built a 
structure that interprets the 
ESC-sequences of ESC/P2. 


To make things short: this 
project is under construction. 
Text output works quite well, 
but TEXT87 isn't working as 
expected because the charac- 
ter widths of Arial and Times 
Roman are not the same as 
those of ESC/P2. 

Graphic printing is on the to-do 
list. Also colour text printing. 
Some other features _ that 
come to mind are the direct 
printing of QL screens and 
PE-save areas. 

For such a project there is a 
German proverb: “you can't 
see the forest because of all 
the trees’. What | want to say 
with this: without help, you 
can't find all the bugs. So I'm 
looking out for some beta- 
testers. The first 10 people 
who send me an email will get 
the actual beta demo version. 
Ok, who has the time to be 
beta tester? Please emai: 
ewald.ikemann@muenster.de 
Subject ‘betatester’ 


not let Windows do the work? 


Running QPC2 from CD 


Dilwyn Jones 


I'm in the habit of using QPC2 at work, but we are 
(perhaps understandably) discouraged from instal- 
ling our own software in the office. My way 
around this has been to make a CD-ROM version 
of QPC2, virus check that using an approved 
program, then run QPC from that, on the 
assumption that once a CD is finished, it cannot 
subsequently be infected. 

CD writers are so cheap these days (decent ones 
Start from about £60 for a PC). If you are a QPC2 
user like me, it can be very convenient to burn a 
copy onto CD to use wherever you have a 
Suitable PC with a CD-ROM drive! In other words, 
the beast can be tamed... 

The system we use at work is based on Win- 
dows 2000, but this should work on any Windows 
system upon which QPC2 will run, anything from 
Windows 95 onward. 

My system allows for all your required QL pro- 
grams to be in a QXLWIN container on the CD, so 
QL programs can be run from there. Any files 
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needing updating or saving will have to be on a 
floppy disk, or you can bite the bullet and create 
a QXLWIN on the work PC concerned. | always 
use QDOS format floppy disks to reduce the risk 
of accidentally transferring viruses between my 
home and work systems. 
First, you have to configure a copy of QPC2 to 
your requirements, and this will have to be done 
either using the copy on your own computer, or 
make a temporary copy on a floppy or zip drive, 
anywhere where you can make and save 
configuration data. You will need to alter the 
configuration so that the program runs from the 
correct location and the devices are set up for 
the program to find the drives and QXLWIN 
concerned. 
The files you will need to copy onto a CD are as 
follows: 

© QPC2.EXE 

@ SMSQE BIN 

e REGISTER. KEY 

e Your QXLWIN 


Optional extras - copies of the other files that 
come with QPC2! 
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My CD-R has just one folder on it, called simply 
QPC. It contains the first 3 files listed (QPC2. EXE, 
SMSQE.BIN and REGISTER KEY). 

Outside the QPC directory, in the root directory, | 
put a copy of my main QXLWIN. Since this is 
200MB in length, and most CDRs will hold at least 
650MB, there is ample room to hold a QXLWIN 
that will hold just about every QL program you 
are likely to have! 

Before you create the CD, you need to configure 
QPC2 with the settings you think you'll need, e.g. 
which drive is WINI_, which is DOSi_. and so on. 
Obviously, you can use the WIN_DRIVE command 
once in QPC2, or even make temporary unsaved 
changes in the QPC2 configuration dialogue as it 
starts from CD, but it is best to save the settings 
you think you'll need, for maximum convenience. 


The four main ones to set are: 
e The WIN drives 
e The DOS drives 
e The printer device 
e The preferred screen resolution at startup 


In my case, the office PCs have one hard drive 
called drive C\ and one CD-ROM drive called 
drive D\ 


c Lowest 
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[Figure 1 - The WIN dep bs box f & 


since | had no intention of creating a QXLWIN on 
the office PCs (didn't want the company to get an 
inferiority complex!), all my programs were in the 
QXLWIN on the CD-ROM, so it made sense to 
assign WINI_ to be C\QXLWIN and for WIN2_ to 
be DAQXLWIN in case | ever did change my mind! 
The DOS devices can be just about anything you 
want them to be as allowed by the QPC2 naming 
conventions. | just left DOSi_ as drive C\ DOS2_ 
as drive D:\ and so on. In fact, it can be useful if 
running QPC2 on a networked system to give 
access to other PCs on the system if you know 
their names, e.g. our office PCs are called man 
(manager's PC}, pla (PLA staffs PC and eng 
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(engineer's PC), so | could have made DOSI_ be 
\man\C\ DOS2_ be \\pla\C\ and DOS3_ be 
\eng\C\ and so on if | particularly wanted to 
access shared files from PC to PC (eg. if we ever 
had a Quanta workshop in our office!). You need 
to be a little careful with the DOS device names 
as QPC2 doesn't yet have a DOS_DRIVE com- 
mand to set the names at runtime (the 
WIN_DRIVE command allows the WIN device 
names to be set for drives 1 to 8 during a QPC2 
session). 


Di : 
r Dan show this cialoe ‘ 
(Hold down shit to st pos7. fe 


p0S8 fe v 


‘Figure 2- The DOS dialogue ‘box - 


Our office printer is a shared printer on the mana- 
gers PC, accessed with the name 
\\man\HPLaser\ so | set the printer port to 
‘printer’ and let Windows sort all that out. 

The \name\ names above are examples of what 
the PC world calls UNC names, or Universal 
Naming Conventions. Don't ask. The QL makes it 
nice and easy with names like ni_ (or si_ or mi_ if 
using Sernet or Midinet). 


256 seni (MMM =] sER3 | 
“ser2 fcom2 =] 


For screen resolution, most PCs these days are 
800x600 or greater resolution, so really you can 
use any setting here. 512x256 will give maximum 
compatibility with older software, or if you wish to 
run multiple incarnations of QPC2 for any reason 
- run Windows in 1024x768 or higher resolution 
and have a 512x256 or 512x384 resolution QPC2 
in each corner of the screen just for fun! Also, 
bear in mind that each QPC2 can use a different 
display driver if the PC has two video output 
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CAMBRIDGE WAS 


OFFICE/FAX 01494-871319 (EEC) WAN. Richardson & Co. 


: 6R d 
MOBILE: 07808 576118 _ € Ravenmead 


E-MAIL: WNR@COMPUSERVE.COM Buckinghamshire SL9 ONB 


THE IDEAL PORTABLE COMPANION FOR THE QL, PC AND MAC. 


THE CAMBRIDGE Z88 A4 NOTEBOOK ZA 


WITH BUILT-IN WORD PROCESSOR, SPREADSHEET, Za 
DATABASE, BASIC, CALCULATOR, CLOCK, ALARM, 
CALENDAR & VT52 TERMINAL. < Sy 
USES 4XAA ALKALINE CELLS (ca. 20 HOURS) * Axes" 
(ca : SS 7 
WE DO REPAIRS, PART EXCHANGES, AND BUY 28's &PARTS = 


NEW! CAMBRIDGE Z88 WITH 024+51 2k Internal Ram £150 
ALSO AVAILABLE, 542k RAMPACK £40 


DESCRIPTION UK USA 


if 


32k RAMPACK 
128k RAMPACK 
32k EPROM PACK 
128k EPROM PACK 
256k EPROM PACK 
EPROM ERASER 


PARALLEL PRINTER LEAD 

SERIAL PRINTER LEAD 

* MAINS ADAPTOR (230vac;: 6v,500ma) 
TOPPER (PROTECTIVE COVER) 

CARRYING CASE (PLASTIC) 


FILE TRANSFER TO OTHER COMPUTERS 


SPECIAL Z88-OL SERIAL LEAD 
COPY DISKS OF QUANTA PROGS IMP/EXP & ARCHIVE EXPORT 


PCLINK KIT (For PCs) 
Z88 TO MAC KIT 
Z88 TO BBC KIT 


POSTAGE UK UP TO £5. EEC £15. USA £20. OTHER COUNTRIES £30. 


ALL THE STOCK IS WARRANTIED FOR 90 DAYS. IN THE EVENT OF REPLACEMENT 
BEING ARGREED, BUT THE ITEM BEING OUT OF STOCK AT THE TIME, A REFUND 
WILL BE MADE PROVIDED THE ITEM IS RECEIVED IN GOOD CONDITION. 


QL & PC COMPUTER USERS WILL FIND THE CAMBRIDGE Z88 ESPECIALLY USEFUL FOR WORK AWAY FROM 
THE DESKTOP, WITH TRANSFER PROGS DATA CAN BE SAFELY EXCHANGED WITH THEIR DESKTOP SYSTEM. 


W.N.RICHARDSON & CO CONTINUES TO PROVIDE FULL SPARES AND 
SERVICES FOR SINCLAIR COMPUTERS, OL & THE CAMBRIDGE 2838 
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cards, handy for presentations or other [autorun] Foues” The allen fie | 
multi-screen work. Quite remarkable what a  open=QPC\Qpe2.exe a = 
modern version of QPC can do! defaultopen=QPC\Qpc2.exe 0 

Figure 1 shows the QPC2 WIN configuration 

dialogue box. Figure 2 shows the QPC2 dialogue __ If, having created a CD with autorun.inf on it, you 
box for the DOS device and Figure 3 the Printer don't want the CD to run automatically after all, 
and Serial ports dialogue box. you can either turn off auto-insert notification on 
Figure 4 shows a screen dump of the PC the computer in question or (rather easier) just 
software | used to create the CD in the first place. hold down the left hand SHIFT key on the PC as 
| mention this to run in the fact that as yet there is — you insert and start up the CD, which suppresses 
no SMSQ/E software to create CD-ROMs, so — autorun. 

someone please take the hint and write it - | Once the CD has been written, labelled and so on 
don't want to have to resort to Windows or Linux you are ready to go! Just insert the CD and with 
every time | want to do something on my com- — luck QPC2 will start and go. If necessary you can 
puter at home! use the opening configuration dialogue to make 
minor temporary changes to 
= QPC2 for the computer it's 


7 &@ G@ 4 ~~ actually running on. 
| Prefete... | Make £D Disciinfo Erase 6. Assistant sf 

co Pe ee Ne In summary, to make a runnable 

Reena Mga Saw Dae py QPC2 CD-ROM, just copy 
—I orce DBines Fle Fede  paraa/2002 223 qoc2.exe, smsqe.bin and 

ped OBytes Fle Folder D 04/03/2002 22:3... : 

a 3 (S|CDPLAYER.BAS B21 KB BAS Fie A 03/03/200211:4 registerkey onto a CD. Add a 
ue ICONFIG.EXE 11.5KB Application A 20/08/1998 18:1 : : ; : 
He Real “INSTALL OAT 117 Bytes DAT Fle A 03/03/2002 11:4... QXLWIN if required (if not just run 
BE SlowView Fy INSTALL EXE 258KB Application A 03/03/2002 11:4... : . 
oe acid | AJINSTALL LOG 303 Bytes LOG File A 18/10/2000 15:1... all your applications off a floppy 

up aura ie Biarc2ere 103KB Application A 


03/03/2002 11:4... 


Joliet File System 


disk just like a traditional QL), 
BT decide if you want to add a 
" a} OXLWIN 200MB C  WINFie 17/03/2002 221... FAQKLWIN Windows autorun.inf file and 
that’s all there is to it. Marcel 

Kilgus (the author of QPC2) has 

done all the hard work for us, all 

we have to do is make the CD. 
— = 2 _ Ive been using this for a while 
2, fae = we _.| now andit's proved to be a great 

4 Se ee po QL asset for me. 


ie 224074 


In order to make the CD run automatically on 
being inserted in a CD drive on a PC, | created a 
file called autorun.inf on the CD. This is a simple 
text file which if found on a CD will cause the PC 
to run the content of the CD automatically as long 
as Auto-Insert-Notification is turned on in Win- 
dows (in Windows 95 for example, go into Control 
Panel, double click on the System menu, click on 
the Device Manager tab then click on the CD- 
ROM drive and Properties, then on the Settings 
tab, ensure that the square next to Auto insert 
notification has a tick in it. {If that makes no sense 
to you, just bear in mind it's a PC running Win- 
dows after all!) 


Figure 5 shows the autoruninf which you can 
create as a text file using Notepad in Windows. 
Ensure the file is typed in with the three lines of 
text exactly as shown or it won't work properly. 


[Figure 6 - The completed CDI | 
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QL Cycle Trail 


Tony Firshman 


Dates and details might be approximate as | 
“| have been asked to write this a few 
| seconds before the QL Toady deadiine! 
-_, Every year | have memorable show stories, 
‘| _ but | would have to do a lot of research to 
| gel it all right. Maybe that is an excuse for a 
| Show Trail series. 


| 1984 - Heard about QL from a 
| journalist who went to the press launch in 
Jan 84. Ordered my QL for £399 on Jan 
25th. Received an FB with dongle end- 
| May. A real revelation after my UK101 with 
| cassette drive. Opened it in Henry's, 
|| Edgware Road in June, as they (and me!) 
| were keen to see inside. Stuck back the 
| undamaged guarantee stickers. Sent it 
back to Cambridge November for dongle 
removal. Lost in the post. Bought another 
| with insurance money. 


9985 - Bought second QL again for 
£399. Found Archive database limited to 
300 records - as it only had 12k working 
space. Both QLs crashing all the time. Got 
Archive V2.1 from Mustak Shakes in the 
| street outside Psion ‘It is not. officially 
| released yet’. Much faster than the first 
| version, and gave a vast 30k free... 


| 1986 - QL still crashing - link crashes 
| to my washing machine spin cycle. Develop 
Computer Cleaner which stops crashes. 
Appear at ZX Microfairs with Computer 
| Cleaners. Publicity gets mentions in all 
major computer mags and start advertising 
in QL User and further afield. A lot of sales 
to Government bodies. Bought Medic Disk 
drive - arrived uncased. Drove to 
Basingstoke and collected case. Saw 
bucket loads of microdrive cartridges for 
| their games offer Bought ridiculously ex- 
| pensive but heavy duty Brother dot matrix 
printer for use with the QL (see 2002) 


a 


1987 - Get boxes of QL parts from 
| Sid Day. Start to repair QLs. Meet Nasta in 
| Eindhoven - he has an LCD screen 
' working on a QL{l am sure the year is 
| wrong here} 
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‘ | switch box to divert 


A 


1988 - Start QBBS with V23 Astracom 
modem and Medic Disk drive, using Jan 
| Bredenbeek’s revolutionary BBS software 
-\ - ran off 2 floppy disks. This starts the 
unbroken 24 hours QBBS run right to the 
-\ present day. Have serial port problems. 
| Meet Laurence Reeves who is keen to 
\ solve serial port problems on the QL. 
Upgrade BBS to V22 Astracom. Meet 
Tony Price on QBBS, and have mutual 
| complain about QL Terminal software - 
~ QL Terminal evolves. Started selling Mi- 
| nerva. Start selling Astracoms. Use 
fax calls to 
_| Amstrad 1512. Get married to Sarah. 


| 1989 - Hermes solves serial pro- 
_| blems on the QL. Sell 45 at Eindhoven 
/ launch. V22bis Astracom launched - 
Tony Price wrote the firmware. Ben 
born. Unearth some ‘lightpens’ from DS 
Enterprises, who were totally at sea. 
Find they are bar code readers, and 
develop software for the QL. Hard disk 


- on the BBS. Started QL mailshots. 


| 1990 - Ben destroys my AST laptop 
_| floppy disk - he is getting interested in 


‘| computers! Repair 35 QLs one month. 
Helped Freddy Vaccha with a 2000 


- people mailshot. 


1991 - BBS upgraded to 14400 bps 


modem and superGoldcard and Connor 
- 120mb hard disk. First I2C devices 


| (parallel/analogue) designed on a train to 


_ | a Glasgow QL show. Get my first Bromp- 


| ton folding bicycle and start the foreign 
| trip cycling habit with Stuart Honeyballl. 


| 1992 - Moved to Ascot. First self- 
contained QL office outside the house. 
No more arguments about the boxes in 
the hall. Design power driver |2C inter- 
face. Bought vast quantity of newly 
| manufactured membranes - but they 
| had a hole missing! Spend 8 hours with 
| Phil Borman rescuing my hard disk 


: partition. 


1993 - BBS converted to PBOX 
_ software, supporting incoming fax ona 
| QL. Fitted in case with std QL keyboard 

on ribbon cable, and 120mb hard disk. 
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Design relay interface to plug into I2C power 
driver Another 6 hours with Phil Borman 
rescuing my hard disk. 


199A - Started superHermes design - 
spend hundred of hours on phone to 
Laurence Reeves. If only we had been on 
internet. 


1995 - superHermes launched at Oak- 
ridge, USA. 15 sold - but only emulated 
current Hermes, due to last minute bug 
found in the PIC. Full working version 
released in October, with expensive (to us) 
upgrades to earlier purchasers. Laurence 
devises a PIC remover using a paper clip. 
BBS upgraded to Aurora + superHermes 
with 12C external temperature measure- 
ment via Minerva MKIl. 


| 1996 - Discover internet. QBBS use 
| Starts dropping. Ty to cycle out of Boston 
airport on bicycles and get flagged down on 
the freeway by a gun wielding cop. ‘How 
can we get out’ we say “There is no road for 
bicycles’ he says. Stuart and | climb over 
barriers and find our way to the non-public 
exit road. Get drowned cycling through 
evening to the QL show 


| 1997 - Romdisq launched. Move to 
Tring. Even larger office in the garden, with 
power, 2 tel lines, QL network, PC network 
and door bell - 150 feet to the main house. 
1998 QBBS upgraded to 256mb main drive 
(off a surplus 34gb with dodgy areas 
above igb) and 23 256mb_ backup 
partitions on 6.4gb secondary. Still get lost 
primary hard disk file tables, but backups 
mostly OK. Motorway crash on the way to 
Croatia. Rest of this saga here courtesy of 
Volvo - it is a very tough car! 


1999 - BBS upgraded to Mplane and 
RomDisq fitted, loading Qubide and super- 
Hermes drivers. Courtesy of Mplane, more 
hard disk failures. Started manufacturing 
Q40. 


| 2000 - Mail to 2000 people for QL 


2000 show - with postcard return to stay 
on QL mailing list. Get very few returns, 
and few emails. Start QL emailshot list and 
get 400 on the list. Eventually get my 
money for the 1998 car crash courtesy of 
the ombudsman - interviewed by Radio 
14. 


| 20608 - First QL emailshot - 100 
bounced emails. Visit Bill Cable by 
plane/bus/bicycle to install spring water 
system - and find time to visit the 
Montreal QL show. Get a phone call for 
8049s - someone had found me via my 
| web site No good of course as QL 


: | specific, but sell him 200 8749s from my 
|) | QL source. Makes more profit than the 


whole QL business that year but always 


| worth keeping a QL mention on the web. 
__y | Compswitch launched. Tony ‘six-sheds’ 
|| | Firshman interviewed on Radio 4. Another 
|, | shed (photographic darkroom) arrives 
__| later 


{2002 - More QL emailshots - but 
now with over 400 good _ emails. 
_| Snailshots get very small and cheap. 
_, Eindhoven venue confirmed for a further 
| 3 years - more Chinese buffets on the 
| 7 __ cards. Brother 2024L still going strong - 
||| mainly used for labels. Now used for fax 
||| printing, as JH’s 'HP PCL’ not liked by new 

| Brother 1250 laser (even though it 
| emulates HP). Goodness knows how 
- much | have exceeded the 2024 
|| | printhead life - but WD40 keeps it going. 

| Tak to CUPS (Cambridge University 
| Computer Preservation Society) on 
| ‘Sinclair QL - new developments. 1984 
to 2002" - April 30th in Cambridge. 


| Asked Laurence Reeves if he was a 
| member when he was a Cambridge - 
| realised later that he was there 
_before. the computers they are 
preserving existed. Realise that | will 
take the QL with me to my grave. 
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An Apple a Day 


Jim Hunkins 


Now this is crazy! By the time this is printed, | will 
have returned from a trip to Australia in which | 
had to figure out what to do for nearly 14 hours 
on a plane. Let's see, | have to get QDT (QL 
Desklop}) done for shioment later this year and 
there is no PC laptop that | can afford that many 
batteries for (and, no, | can't afford to fly business 
class or better where you can just plug in — sigh). 


So what | will have done for this long flight is to 
grab my Apple Titanium notebook running OS X 
(1 battery = 4-5 hours), make sure the Virtual PC 
emulator is on it with an image of my Windows 
98 disk which includes Marcel’s QPC (the latest 
revision with power savings capabilities) which Is 
what | am using to develop QDT with. Got it, not 
lost yet. Awesome! 


In other words, | am able to run my SMSQ/E sys- 
tem on a Mac. It required another emulator in bet- 
ween (an emulator to run an emulator) but it 
works! To be honest, there are some limits to 
what you can do. See the end of this for recom- 
mendations and performance comments. 


As anyone who deals in operating systems and 
software probably realizes, to do an emulator 
which runs fast enough such as QPC takes 
some pretty fancy programming, often using 
some barely legal programming methods. And 
Marcel has done just that with his excellent QPC 
emulator 


What amazed me was how well it ran under 
Virtual PC on the Mac systems on my first try. | 
noticed that a few pieces of my boot file had 
some weird stuff going on, and that occasionally 
the inout would get ‘stuck’ momentarily and force 
CAPS or send the mouse cursor off the screen. 
But it always recovered. Then | ran one of my 
QDT components. It looked fine, that is if you 
didn't want to see any of the graphical compo- 
nents (icons, boxes, etc). 


Now the story gets interesting. | mentioned this 
little problem to Marcel and he threw back a few 
comments (they were very constructive). | did 
some additional testing and sent my results to 
Marcel. And he send back some more sugges- 
tions along with some code to test things. After 
some fast and interesting back and forth, we 
found that something was happening to the 
floating point results. 


Two major observations gave clues. In basic, 
some numbers were becoming all ‘0's. This was 
obvious with the line 'ZS=INKEYS$(-1) becoming 
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'ZS=INKEY$(0),, which does not wait for a 
keyboard entry. 


The other clue was that the graphics that | was 
drawing used a floating point horizontal correc- 
tion, which changed all the ‘x’ coordinates to 0. 
This resulted in nothing visible on the screen 
(actually, everything at one pixel location - not 
very visually appealing or useful). With some 
additional information from Marcel, we were able 
to confirm this through some other tests and 
behavior anomalies. 


Since QPC worked perfectly on many different 
PCs and Windows platforms, it seemed that the 
problems would be something wrong with the 
Virtual PC emulator. After posting a message in 
one of the Connectix (Virtual PC) forums, | 
received an offer of assistance from the Virtual 
PC chief architect. Marcel had an idea and sent 
some sample Windows code, which allowed the 
Virtual PC people to find the problem right away. 
As of a couple of days ago, | have been able to 
test their updated Virtual PC build and find that it 
works great. By the time this is printed, the up- 
date to Virtual PC 5 should be available for public 
download to Virtual PC owners. 


So what was going wrong? While | won't give 
away coding secrets, It had to do with doing a bit 
of clean up and speed up under both emulators. 
The QL has had a history of round off errors in 
very small floating point showing up. And Virtual 
PC has similar issues due to convert ion of 
floating point between two hardware systems 
that use different component sizes (which of 
course are both different from QL floating point). 
All | will say is that it wasn't the expected very 
small floating point errors that do occur on very 
rare occasion in Virtual PC (they usually show up 
in PC spreadsheet displays). It did have to do 
with each emulator doing an extra little step to 
make things better. 


Now that | have not actually said what was 
wrong, lets just say that the ‘fix’ only could have 
occurred due to the dedication and knowledge 
of their own product by both Marcel (QPC) and 
the Virtual PC guys at Connectix. And talk about 
great service. The entire problem report to final 
solution took less than 4 weeks! 


The image included with this article is a good 
case of solid emulation. It shows OS X running 
on an Apple Titanium notebook, with Virtual PC 
running in windows mode {torture #1). Within the 
Windows 98 environment of Virtual PC, you can 
see QPC, also running in windows mode (torture 
42). Within QPC you see the normal pointer 
environment with the buttons, a file being edited, 
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Grab File Edi Capture Window Help 


Gane 
Instructions 


Minesweeper 


and QDT running in all its graphical splendor 
(shameless small plug). 


For those of you who want to run your QPC ona 
Mac, here are some important notes and recom- 
mendations: 


Apple Hardware and OS: 
- OS X with a 500 Mhz G4 or better (tested) 
[performance is constantly being enhanced] 
- OS 9 with a 400 Mhz G4 or 500 Mhz G3 or 
better 
- OS X with dual | Ghz processors in a tower - 
man, speed is sweel! 


Software Versions: 
- Win 95 or above (tested with Win 98) 
- QPC ll (version 3 especially if you plan to use 
a notebook) 
- Virtual PC Version 5 (be sure to get the latest 
update) (Version 4 crashed on the QPC start- 
up window) 


Notes: 
~ run both Virtual PC and QPC in full screen mode 
- this allows both to draw ‘directly’ to the 
screen 
- you can use either or both in windowed 
mode but with a substantial performance 
penalty 
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- the CAPS key/SHIFT seem to occasionally stick 
- SOlution #1: just play around with the keys for 
a bit and they will clear up 
- solution #2: close and restart QPC 
- this happens only very rarely with the floating 
point fixed Virtual PC version 
- with the Titanium notebook, be very careful 
about keeping your hand/fingers away from 
the touchpad when you arent using tt 
(seems to be a major contributor to the 
above) 
- would recommend using a mouse instead of 
the touchpad where possible 
- | will continue to watch for the cause of this 
problem and will work with Marcel or Con- 
nectix to fix it (if it isn't me} 
As | said, this is crazy. Got to love it! 


Stop the Press - latest Update 
Connectix has just released the update 5.0.2 
which can be downloaded from their website 
(www.connectix.com). It has the required fix 
included to run QPC and seems very stable. Any 
prior version of Virtual PC will have problems with 
floating point and related code. 
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Are you waiting for... 


.. an all new QL? 

... superscalar 68060 power at up to 80 MHz? 

... Integration instead of tinkering with many add-ons? 

... more than 65000 colours at high resolutions? 

... speed and new features without losing QL compatibility? 
... sampled stereo sound for QDOS and SMSQ/E? 

... improved peripherals? 

... full control over your system by open hardware docs? 
... booting your favourite OS from ROM in a few seconds? 
... a real 68060 QL instead of emulators? 

..« QDOS Classic and SMSQ/E with up to 160 BogoMIPS? 
... even 68k Linux loading from QDOS or SMSQ/E? 

... the fastest QL ever? 


No more waiting. 
The new Q60 has arrived! 


Take the power back in your hands. 


Available from D & D Systems, P.O. Box 5813, Ripley, Derbyshire, England DE5 9ZR 
Tel: +44 (0)1773-740170, FAX: +44 (0)1773-748399, Email: sales@q40.de 


More information about the Q40j and Q60 at the official Website: http:/www.q40.de, Email: info@q40.de 
The Q40i is also available. It offers similar features like the Q60 at lower cost, using a 40 MHz 68040 CPU. 
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Programming the Pointer Environment in C - Part 2 


Jerome Grimbert 


In fact, if you take time to read the comment, you would have notice that some setting should have 
come from a config block. Making a config block in C is a bit hard (even if it can be done), but as | had 
already some routines and the config block in libxmenu, | will just use it. 


lt make the source code a little smaller: 


#include 
#include 
#include 
#include 
#include 


/* for new C68, hide startup problems */ 
struct WINDOWDEF _condetails = 
{ (char) 0,(char) 0,(char)0,(char)4 , 
(short)2, (short)1, (short) 0, (short)0}; 


char _conname[] = "con_2xlaQx0"; /* mask startup problems, for old one */ 
char *_endmsg = NULL; /* and stop when I say */ 


char _PROG_NAME[] = "PE in C tutorial 2"; 
static QD_TEXTI(quit, "QUIT"); 
static QD_TEXTI(title,"PE in C test 2"); 


static long ACTION_QUIT(struct WM_wwork *wwk); 
struct WM_action action_quit = { JSR, wm_actli, ACTION_QUIT}; 


static long ACTION_QUIT(struct WM_wwork *wwk) 


exit(0); 


ai WM_wstat * init_status(struct WM_wwork *wwp) 
struct WM_wstat *result; 
/* Default struct has 40 loose item, that's enough */ 
result=(struct WMwstat *)malloc(sizeof(struct WM_wstat)); 
result— wwork = wwp; 
wwp—wstat = result; 
result— wdef 
result—> chid 
result—> swnr 
result— kstk 
result— evnt 
result— xsiz 
result—> ptpsx 
result— wmode 
result— spar0 


result—»ypos = 0; 
0; 


result—> xpos 
result— kprs 
0; 

result—> ysiz = result->xorg = result— yorg = 0; 
result—» ptpsy = 0; 

FORM_QIA; /* THIS is important */ 


Hott ott We ot 


result—>sparl = 0; 
result— ciact 
result— citem = -1; 


result— cispr 
result—> cihxo 


result— cibrw 
result—>cihxs = result—>cihys 
result— cihyo QO; 

result—> litem[0] = 0; 

return result; 


} 


struct WM_wwork * init_window() 
{ 
struct WM_wwork * result; 
struct WM_litm *loose_list; 
struct WM_infw *infw_list; 
struct WM_info *info_list; 
info_list=(struct WM_info *)malloc(sizeof(struct WM_info)*2); 


result—> cipap 


Ls 
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info_list[0].xsize=14%*6; 
info_list[0].ysize=10; 
info_list[0].xorg=0; 
info_list[0].yorg=0; 
info_list[0].type=TYP_TEXT; 
info_list[0].spar=0; 
info_list[0].attr.t.ink=0; /* Should be from a config block */ 
info_list[0].attr.t.cwid=0; 
info_list[0].attr.t.chgt=0; 
info_list[0]-.pobj=&title; 
info_list[1].xsize=-1; /* end of list */ 


infw_list=(struct WM_infw *)malloc(sizeof(struct WM_infw)%*2); 
infw_list[0].xsize=14%*6; 
infw_list[0]}.ysize=10; 

infw_list[0].xorg=2; 

infw_list[0].yorg=3; 

infw_list[0].flag=0; 

infw_list[0].borw=0; 

infw_list[0].bore=0; 
infw_list[0].pobl=info_list; 
infw_list[1].xsize=-1; 
SetInfoColour( infw_list, DefaultColourSet()); 


loose_list=(struet WM_litm *) malloc(sizeof(struct WM_litm)%*2); 
loose_list[0].xsize=4%6; 
loose_list[0].ysize=10; 
loose_list[0].xorg=15%6; 
loose_list[0].yorg=3; 
loose_list[0].xjst=0; 
loose_list(0].yjst=0; 
loose_list[0].type=TYP_TEXT; 
loose_list[0].skey=K_CANCEL; 
loose_list[0].pobj=&quit; 
loose_list[0].pact=&action_quit; 
loose_list[0].item=0; 
loose_list[1].xsize=-1; /* end of list */ 


result = (struct WM_wwork *) malloc(sizeof(struct WM_wwork)); 
SetWindowColour( result, DefaultColourSet()); 

result— wstat=NULL; /* filled later */ 

result—>chid =0; 

result— pprec=NULL; 

result—> psave=0; 

result— spari=0; 

result— spar2=0; 

result— spar3=0; 

result—» pulld=0; 


result— splst=NULL; 

result— xsize=20%6; 

result— ysize=16; 

result— xorg=20; /* initial position of mouse */ 
result— yorg=8; 


result—> flag=1; 

result— borw=1; 

result—>sprite=NULL; /* default pointer */ 
result— curw=1; 

result— ublob=NULL; 

result— upatt=NULL; 

result—> ablob=NULL; 

result— apatt=NULL; 

result—> sblob=NULL; 

result—> spatt=NULL; 


result— help=NULL; 
result— ninfo=1; 


result— ninob=1; 
result—> pinfo=infw_list; 


QL Today 


33 


result— nlitm=1; 
result— plitm=loose_list; 


result— nappl=0; 
result— pappl1=NULL; 
return result; 


main() 


struct WM_wwork *wwp; 
struct WM_wstat *wsp; 


/* text may become a problem if started in mode 8 
*¥¥ but the high_color has no problem to work like mode 4 
¥* So, to simplify our setting, if it's mode 8, then 


** this program will want to run in mode 4... assuming 
*¥¥ that all hardware who support mode 8 also have mode 4 
xX 

¥/ 

short mode, type; 

mode =—1; 

type=-1; 


mt_dmode(&mode, &type) ; 
if (mode==8) { mode=4; mt_dmode(&mode, &type) ; } 


/* Create the window structure */ 
wwp = init_window(); 
wsp = init_status(wwp); 


wwp— chid = fgetchid(stdout); 
if (!(wm_findv(wwp—> chid) )) 


exit(—1); /* there is no PE here, so stop */ 


/* show the window, at the mouse pointer */ 
wm_prpos(wwp,—-1,-1); 
wm_wdraw(wwp); 


/* Now, let's get the events */ 
while (!wm_rptr(wwp) ) 


} 


exit(0); 


} 


The result is similar on the screen, excepted that this time, we have a config block to play with in the 
program. 


#include 

#include 

#include 

#inelude 

#include 

7/* for new C68, hide startup problems */ 

struct WINDOWDEF _condetails = 
{ (char) 0,(char) 0,(char)}0,(char)4 , 
(short)2, (short)1, (short)0, (short) 0}; 
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"con_2xla0x0"; /* mask startup problems, for old one */ 


char _conname[] = 
= NULL; 7* and stop when I say */ 


char *_endms¢g 


No change so far. 


char _PROG_NAME[] = "PE in C tutorial 3"; 
static QD_TEXTI(quit, "QUIT"); 
static QD_TEXTI(title,"PE in C test 3"); 


Just a quick change in the name of the program. Nothing really important here. 


static long ACTION_QUIT(struct WM_wwork *wwk,struct WM_litm *1i); 
struct WM_action action_quit = { JSR, wm_actli, ACTION_QUIT}; 
static long ACTION_MOVE(struct WM_wwork *wwk,struct WM_litm *1i); 
struct WM_action action_move = { JSR, wm_actli, ACTION_MOVE}; 
static long ACTION_ANY(struct WM_wwork *wwk,struct WM_litm *1i); 
struct WM.action action_size = { JSR, wmactli, ACTION_ANY}; 
static long ACTION_SLEEP(struct WM_wwork *wwk,struct WM_litm *1i); 
struct WM_action action_sleep = { JSR, wm_actli, ACTION_SLEEP}; 


Notice that there is now some additional routines. There code is to come hereafter 
static long ACTION_QUIT(struct WM_wwork ¥wwk, struct WM litm *1i) 


exit(0); 


static long ACTION_MOVE(struct WM_wwork *wwk, struct WM_litm *1i) 


short dx, dy; 

wwk— wstat— evnt |= PT_WMOVE; /* set event bit for wm_chwin */ 
wm_chwin (wwk, &dx, &dy); /* move window */ 

wwk— wstat—> litem[1li-—> item]= WSI_MKAV; 

return wm_ldraw(wwk,—1); 


The handling of move is done directly by the PE (thanks to the call to wm_chwin). Once moved, we 
just reset the loose item back to available and ask for a redraw of the loose items. 


static long ACTION_SLEEP(struct WM_wwork *wwk, struct WM_litm *1i) 


wwk— wstat— litem[li-—> item] = WSI_MKAV; 
wm_ldraw(wwk,—-1); 
return PT__22ZZ; 


The handling of Sleep is delayed to later, because we are going to change a lot of the window. 
static long ACTION_ANY(struct WM_wwork %wwk, struct WM_litm *1i) 


return li-» skey+14; 


That's a default handler. It might be more useful later 
struct WM_wstat * init_status(struct WM_wwork *wwp) 


struct WM_wstat *result; 

/* Default struct has 40 loose item, that's enough */ 
result=(struct WM_wstat *)malloc(sizeof(struct WM_wstat)); 
result—>wwork = wwp; 
wwp—>wstat = result; 
result—> wdef = NULL; 
result—> chid 0; 
result—>swnr = result—> xpos 
result—kstk = result—>kprs 
result—> evnt 0; 
result—>xsiz = result—ysiz = result— xorg = result—>yorg = 0; 
result—> ptpsx = result—»ptpsy = 0; 


result—>ypos = 0; 
0; 


ot ou oH ton 
tou 
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result—> wmode 
result— spar0d 
result— spari 
result— ciact 
result— citem 
result— cibrw 
result— cihxs 
result—> cihyo 


FORM_QIA; /% THIS is important */ 
0; 


result—> cispr 
result—> cihxo 


result— cipap 
result— cihys 
0; 


toil 


how ot fh won on 
| 
ran 
. 
wou 


result—> litem[0] 
result— litem[1] 
result—> litem[2] 
result— litem[3] 


WSI_UNAV; 
0; 


Howou a 
Oo 
Preners 


return result; 


} 


Nearly as before. Just knowing about the 4 loose items this time (The resize is unavailable). The code 


of init_window has now to position the additional loose items. 


struct WMwwork * init_window() 


struct WM_wwork * result; 

struct WM_litm *loose_list; 
struct WM_infw *infw_list; 
struct WM_info *info_list; 


info_list=(struct WM_info *)malloc(sizeof(struct WM_info)*2); 


info_list[0] 
info_list[0] 
info_list[0] 
info_list[0] 
info_list[0] 
info_list[0]. 
info_list[0]. 
info_list[0] 
info_list[0] 
info_list[0] 
info_list[1] 


~xsize=14%6; 
-ysize=10; 
-xorg=0; 
-yorg=0; 

- type=TYP_TEXT; 


spar=0; 
attr.t.ink=0; /* Should be from a config block */ 


-attr.t.cwid=0; 
-attr.t.chgt=0; 
-pobj=&title; 

-xsize=-1; /* end of list */ 


infw_list=(struct WM_infw *)malloc(sizeof(struct WM_infw)*2); 


infw_list[0] 
infw_list[0] 
infw_list[0] 
infw_list[0] 
infw_list[0] 
infw_list[0] 
infw_list[0] 
infw_list[0] 
infw_list[1] 


-xsize=14%6; 
-ysize=10; 
-XOrg=2 5 
-yorg=3 ; 

. flag=0; 

. borw=0; 

- bore=0; 
»pobl=info_list; 
-xsize=—1; 


SetInfoColour(infw_list, DefaultColourSet()); 


loose_list=(struct WM_litm *) malloc(sizeof(struct WM_litm)*5); 


loose_list[0].xsize=4%6; 


loose_list[0]. 
loose_list[0]. 
loose_list[0] 
loose_list[0] 
loose_list[0] 
loose_list[0] 
loose_list[0] 
loose_list[0] 
loose_list[0] 
loose_list[0]. 


loose_list[1] 
loose_list[1] 
loose. list[1] 
loose_list[1} 
loose_list[1] 
loose_list[1] 
loose_list[1] 
loose_list[1]. 
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ysize=10; 
xorg=15%*6; 


-yorg=3; 

-xjst=0; 

«yjst=0; 

. type=TYP_TEXT; 

. Skey=K_CANCEL; 
-pobj=&quit; 
-pact=&action_quit; 


item=0; 


-xsize=24; 
-ysize=10; 
-Xorg=32; 

- yorg=16; 
-xXjst=0; 

-yjst=0; 

. type=TYP_SPRITE; 


skey=K_MOVE; 
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Im stillen Winkel 12 D-47169 Duisburg 
Tel. 0203 502011 Fax 0203 502012 
http://www.j-m-s.com/smsq/index.htm 


SMSQG/ZE Prices 


Due to changes in the licensing structure we are happy to be able to 
reduce the prices for all SMSQ/E products! 


QPC2 Version 3 with SMSGQ/E 


New Version with complete manual EUR 99,90 


Uperade to QPC2 Version 3 


From QPC1 (or just QPC - the first QPC!) EUR 69,90 


From QPC2 Version 1 (or just QPC2) EUR 44,90 
From QPC2 Version 2 EUR 20,40 


You will receive a new QPC part of the manual. Please return QPC maste 
disk. Please note: QPC1 will not be supported on this disk anymore. If you | 
want to continue to use QPC1, then please make a backup-copy of the 
QPC master disk before you return it to us. 


All other SMSQ/E 


for GoldCard/SuperGoldCard or QXL or ATARI 
price per Version EUR 49,90 


TERMS OF PAYMENT 
Postage and package [Germany] EUR 4,86 (if total value of goods is up to EUR 25, then only EUR 3,32). 
[Europe] £4,50 / EUR 7,41 (if total value of goods is under £15 / EUR 25,56 then only £3 / EUR 4,86). 
[Overseas] between US$7.50 (1 item) and US$17.50 (maximum). 
Cheques in EURO and International Money Order in EURO (both have to be drawn on German banks). 
We accept Internation Reply Coupons as payment (can bo bought at any post office): 1 IRC = EUR 1.02 redeeming value. 
Exact prices are given in EUR ... the price in £ ond/or US$ are approx. conversion based on the ; 
exchange rate at the time of creation of this ad. Prices may be adjusted in case the exchange rate falls | 
considerably out of this range in both directions! | 
We can charge your credit cards in £’s, US$, EURO or in DM - please state the currency you prefer. 
Please do not send any UK bank cheques in £ - our banks have increased the fee for handling them 
by 600% (no joke!) so we cannot accept them anymore, unless you add £6 for clearing the cheque. 
E&OE. 
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loose_list[1] .pobj=&wm_sprite_move; 
loose_list[1] . pact=&action_move; 
loose_list[1].item=1; 


loose_list[2].xsize=24; 
loose_list[2].ysize=10; 
loose_list[2].xorg=60; 
loose_list[2].yorg=16; 
loose_list[2].xjst=0; 
loose_list[2].yjst=0; 
loose_list[2] .type=TYP_SPRITE; 
loose_list[2].skey=K_SIZE; 
loose_list[2] .pobj=&wm_sprite_size; 
loose_list[2].pact=&action_size; 
loose_list[2].item=2; 


loose_list[3].xsize=24; 
loose_list[3].ysize=10; 
loose_list[3].xorg=4; 
loose_list[3].yorg=16; 
loose_list[3].xjst=0; 
loose_list[3].yjst=0; 
loose_list[3].type=TYP_SPRITE; 
loose_list[3].skey=K_SLEEP; 
loose_list[3].pobj=&wm_sprite_sleep; 
loose_list[3].pact=&action_sleep; 
loose_list[3].item=3; 


loose_list[4].xsize=-1; /* end of list */ 


result = (struct WM_wwork *) malloc(sizeof(struct WM_wwork)); 
SetWindowColour(result, DefaultColourset()); 

result—> wstat=NULL; /* filled later */ 

result— chid =0; 

result—> pprec=NULL; 

result— psave=0; 

result— spar1=0; 

result— spar2=0; 

result—> spar3=0; 

result—» pulld=0; 


result— splst=NULL; 

result— xsize=20%*6; 

result— ysize=30; 

result— xorg=20; /* initial position of mouse */ 
result— yorg=8; 


result— flag=1; 

result— borw=1; 

result— sprite=NULL; /* default pointer */ 
result— curw=1; 

result—> ublob=NULL; 

result— upatt=NULL; 

result—> ablob=NULL; 

result—> apatt=NULL; 

result— sblob=NULL; 

result—» spatt=NULL; 


result—> help=NULL; 


result—> ninfo=1; 
result—> ninob=1; 
result—> pinfo=infw_list; 


result— nlitm=1; 
result—> plitm=loose_list; 


result—» napp1=0; 
result—> pappl=NULL; 
return result; 
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main() 


struct WM_wwork *wwp; 
struct WM_wstat *wsp; 


/* text may become a problem if started in mode 8 

**¥ but the high_color has no problem to work like mode 4 
** So, to simplify our setting, if it's mode 8, then 

*¥ this program will want to run in mode 4... assuming 
*x* that all hardware who support mode 8 also have mode 4 


*/ 

short mode, type; 

mode =-1; 

type=—1; 
mt_dmode( &mode, &type) ;s 


if (mode==8) { mode=4; mt_dmode(&mode, &type) ; } 


/* Create the window structure */ 


wwp = init_window(); 
wsp = init_status(wwp); 


wwp— chid = fgetchid(stdout); 


if (!(wm_findv(wwp— chid))) 


exit(-—1); /* there is no PE here, so stop */ 


/* show the window, at the mouse pointer */ 


wm_prpos(wwp,—1,~1); 
wn_wdraw(wwp) ; 


/* Now, let's get the events */ 


while (!wm_rptr(wwp)) 


if (wsp~evnt & PT_Z22ZZ) { Menu_Button_Text(DefaultColourSet(),wwp,"PE in C test : 


exit(0); 


Sleeping"); } 


Notice the test added in the while loop. It's here the program will handle the Sleep action. Of course, 
I'm cheating a little because | have the right routine in libxmenu. So | used it. 


And to make this story short, you can find a complete tutorial for PE with C68 in the C68 distribution. 
Maybe, in another article | will explore shortcut provided by the libXmenu, but that’s another story. 


Q60 - a review 


Wolfgang Lenerz 


Some time ago, | acquired a 
Q60. | had bugged Peter Graf 
for quite some time on the 
mailing list, until he relented and 
sold me a Q60 which he had 
built himself. Note that this was 
before an agreement was 
made with D&D, who, today, 
build and sell the Q60. 


1 - What you get 
When the package arrived, | 
was, of course totally excited. 
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The contents were promising: 
First of all, you get a box with 
the Q60 board in it. 


a) The Q60 board 

The board doesn't seem very 
different from a Q40 board that 
has already be seen in these 
pages quite a few times. The 
board contains 2 ISA slots, the 
68060 running normally at 60 
Mhz, some glue chips (including 
the video chips) and memory 
Slots. 


Normally, you can fit up to 32 
MB of EDO memory (the Q40 
also permits the use of FPM 


memory, the Q60 only allows 
EDO memory). However a 
"special hardware option’ for 
more memory exists, and it so 
happens that mine contains 
that option. The board is thus 
populated with 80 MB {one 16 
MB memory card, one 64 MB 
memory card), which is quite 
sufficient. 


For the time being, SMSQ/E 
can only use 32 MB out of the 
80 on board, but | hope that, 
what with the exciting an- 
nouncement as to the status of 
the SMSE/E source code, this 
limitation can be overcome 
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sometime in the future We'll 
See! 


Also included in the package is 
an |/O card. The I/O card con- 
tains the serial (2) and parallel 
ports for the Q60, the floppy 
and IDE harddisk interfaces, as 
well as a joystick port. It fits 
into one of the ISA extensions 
Slots. Thus, one extension slot 
remains free - | know that some 
people, who use the Q60 un- 
der Linux, use this for an Ether- 
net Card. Of course, Ethernet 
drivers under SMSQ/E are not 
available (yet?). 


The Q60 board also includes 
sound ports for 10 and 20 kHz 
sampled sound, and an AT style 
keyboard interface. There are 
also two ROMs on_ board, 
which contain the operating 
system SMSQ/E. 


The package is accompanied 
by a thick A4 documentation 
and several disks. Normally, you 
would also get Linux for the 
Q60, but as | told Peter Graf 
that | wouldn't be using Linux, it 
wasn't included in my package. 


b) The documentation 

The documentation | got con- 

sists of: 

- a Q40 and Q60 mainboard 
users manual, telling you what 
is on the board and how to 
configure the hardware. This 
manual also shows the Q60 
memory map. 

- a Q40 and Q60 mainboard 
Hardware Documentation. this 
contains detailed information 
about the I/O ports used, and 
generally about the hardware 
interfaces in the machine. This 
will not be useful to a normal 
user, but can be used by 
those who wish to program 
close to the machine. 

- an SMSQ/E manual, telling you 
about the new features of this 
operating system. 
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- a Q60/Q40 specific SMSQ/E 
manual. 

- a documentation of the new 
colour drivers. 


Allin all, this is a very compre- 
hensive documentation. 


c) The disks 

You also get several disks with 
the machine. These have very 
explicit instructions on them on 
how to get several versions of 
SMSQ/E (with/without high co- 
lour drivers etc) running on 
your machine, and also how to 
partition your hard disk. 


lt would be too long to go into 
all of the software that is fitted 
onto the disks, there is some- 
thing for everybody (how to 
use the onboard sound, for 
example). 


A comprehensive index of the 
software on the disks is provi- 
ded. The first of the three "sup- 
port disks’ has a boot file on it, 
so that you can autostart from 
there and let yourself be gui- 
ded by a menu. All very profes- 
sional. 


9 - Installation 

Installing the Q60 was straight- 
forward. All you need is a PC 
case, with an AT (preferably not 
ATX) power supply. There will 
be no problems with power 
supply connectors, because 
the Q60 doesn't use the nor- 
mal power connector - it uses 
on the the hard disk power 
connectors - pretty neat! 

You bolt the Q60 into the PC 
case - holes cut out in the 
mainboard fir over holes in the 
case. 


You install the floppy and hard 
disks, insert the I/O card and 
that's about it, really. 


3 - Problems 

Of course, for me, that wasn't 
quite it, as had a few problems 
with my Q60 - but read on. 


First of all, a Q60 really needs a 
hard disk. You can use it with 
floppies only, but why bother? 
Of course, since we're talking 
SMSQ/E here, the harddisk 
needn't be very large. It so hap- 
pens that | had an old harddisk 
lying around, which, quite some 
time ago | had taken out of a 
PC, for reasons | couldn't re- 
member. 


| installed it in the case, connec- 
ted it to the |/O card, booted 
with a floppy and started to 
partition and format the disk. 
This all went on without a hitch. 


| copied some files over to the 
hard disk. That, again, went 
without a hitch. | shut down the 
machine. When | came back to 
it a few days later - there was 
nothing on the hard disk. 
Hmmm? 


| restarted everything, and 
everything was fine, but again, 
a few days later there seemed 
to be nothing on the harddisk. | 
made some tests, and found 
out that everything  disap- 
peared from the disk as soon 
as the machine was switched 
off and, when switching on, | 
used my normal boot file. Very 
mysterious. | tried to find out 
what, in my boot file, caused 
the problem. 


That took me quite some time 
(weeks!) - and | didn't find out 
what the problem was. | was 
about to protest quite forcefully 
to Peter Graf, when | suddenly 
remembered that | had taken 
the harddisk out of the PC 
because it didn't work correctly 
in the PC anymore. 
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OBOX-USA BBS 


Operating since 1993 on a Sinclair OL from Utica, Michigan, USA 
Supporting ALL Sinclair and Timex users 
Message and File Areas for QL, Z88, Spectrum, TS2068, ZxXx81, TSi000 
Modem speeds 300 bps to 33.6k bps supported 
24 hour operation - call anytime 


810-254-9878 


Our Lips 
are 
Sealed 


QL-THESAURUS QL-2-PC TRANSFER 
STYLE-CHECK ~19 Or £15 each QL-RHYMES 


Tel: +44 (0)1268 281 826 Email: geoffwicks@hotmail.com 
Web: hittp://members.tripod.co. uk/geoffwicks/justwords.htm 
Just Words! - Software for Writers and Word Lovers. 


Q ( Geoff Wicks, 28 Ravensdale, Basildon, Essex, SS16 5HU, UK. 
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| installed another old hard disk 
that | still had around here - and 
that has worked normally ever 
since... | threw the faulty hard 
disk away, of Course. 

Q60 1: Wolfgang 0 

| then also proceeded to install 
a CDROM drive. Do | have to 
tell you about the old CDROM 
drive | had and that (I LATER re- 
membered} didn't work correct- 
ly? 


Q60 2 : Wolfgang 0 

By that time, | had also noticed 
that the keyboard adapter | 
used, to connect a PS/2 style 
keyboard {instead of an AT 
style keyboard) wasn't working 
correctly, which caused some 
dropped keys when_ typing. 
Installation of a very cheap old 
AT keyboard solved that pro- 
blem, too. 


Q60 3 : Wolfgang 0 


| WAS able to connect an old 
monitor without any problem, 
though! 


4-In use 

| do admit that | haven't used 
the Q60 extensively yet. There 
is one problem | noticed: the 
QPAC2 jobs menu (and QPAC 1 
Sysmon) crash the machine 
when they try to draw the 
sprite showing how much me- 
mory is left. When | showed 
this to Roy Wood during the 
Eindhoven show, he was quite 
stumped, because that doesn't 
happen on his machine. Ill 
investigate this further - I've 
already isolated the subroutine 
that does that, and I'll try to find 
out what is happening. 


Apart from that, you get a 
pretty fast machine! Everything 
works as it is supposed to. 
Screenwise, the machine has 
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the normal QL modes (512x256 
in 4 colours, 256x256 in 8 
colours} and also high colour 
modes: 512x256 or 1024x512 
in 64K colours (16 bit colours). 


One of the reasons | haven't 
used this machine extensively 
yet is that | hadn't copied all of 
my usual software to the 
machine. | have been preaching 
now for ages about how 
SMSQ/E gives us the same 
operating system and program- 
ming environmment in many 
machines (which is why | use it). 
However, that also supposes 
that you get all of your pro- 
grams etc across to the new 
machine. This is far from easy, 
considering that | have a 70 MB 
disk on my main QPC ma- 
chines, of which “only” 11 MB 
are free today. How do you get 
that much data across? Copy- 
ing it on floppies is not really 
feasible. 


To the rescue came, at first, 
Thiery Godefroy and Jonathan 
Hudson. Thierry Godefroy 
wrote a CDROM driver for the 
Q40. This is stil nominally at a 
beta stage. 


Jonathan Hudson wrote a 
program allowing you to read a 
QXLWIN file from within ano- 
ther operating system. | then 
copied my QXLWIN file to a CD. 
This, however, involved writing 
to the CD in a special manner 
(burning the QXLWIN file as an 
ISO image file, thus putting the 
QXLWIN “disk” on the _ first 
sectors of the CD), which | am 
unable to do with my normal 
burning software. | was able to 
use a trial version of another 
CD writing software and got it 
all working. | could actually 
copy files from the CD to my 
hard disk. 


However, operations were 
extremely slow (after 24 hours 


it sill was copying). This proved 
at least that the Q60, the 
CDROM driver and the soft- 
ware were able to run for 24 
hours in an unattended fashion. 


| also noticed that Jonathan 
Hudson's software does not 
set the file dates to the dates | 
wanted (i.e. the date of the file it 
was copying from). All in all, the 
special burn operation, the 
slowness and the file dates 
meant that this was not a 
viable solution for me. 


So, in a few spare moments, | 
wrote another software that 
also uses Thierry Godefroy's 
drivers , but allows you to read 
the QXLWIN file from the 
CDROM even if it is not burned 
as an ISO image file, provided it 
is burned somewhere on the 
CDROM in one single conti- 
guous file, starting at the head 
of a 2048 bytes sector - which 
is normally the case for all files. 


With that, | was able to 
‘backup’ my files from the CD 
ROM to my hard disk. | didn't 
really time the operation - but 
when ! cameback about 25 
minutes later everything was 
copied... 


During the Eindhoven show, 
when | showed this (still provi 
sional) software to Roy Wood, | 
noticed a few bugs, which are 
now ironed out. So now | can 
use my Q60 in earnest. 

And it flies... 


[Editor's comment: Sysmon 
never showed the problem on 
my Q40 either ... why not com- 
pare the binary and see if that 
is faulty. And for file transfer: | 
happily used SERNET to 
update/backup files between 
the TT QPC, Q40. No problems 
here ... and it takes “only” a few 
hours for 250MB! - definitely 
less than 24 hours for 70MB] 
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Hee ben per QL Users Group 


Worldwide Membership is by subscription 
only, and offers the following benefits: 
Monthly Newsletter - up to 40 pages 
Massive Software Library - All Free ! 
Free Helpline and Workshops 
Regional Sub-Groups. One near you? 
Advice on Software and Hardware problems 
Subscription just £14 for UK members 
Overseas subscription £17 


Barclaycard: Visa: Access: Mastercard 


*Now in our Nineteenth Year* 


Further details from the Membership Secretary 
Bill Newell, 213, Manor Road 
Benfleet, Essex, SS74JD 
Tel. +44(0)1268 754407 


or 
Visit the Quanta Web Site 
http://www. quanta.uni.cc 
email: quanta_membership @ uk2.net 
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We're moving again 


Marcel Kilgus 


Quite a lot of things have happened in the QL 
world during the last few months. It all started one 
evening in a pub: after the Hove show in early 
March the usual suspects went to dinner together, 
followed by a visit in a nearby pub. While drinking 
beer (or wine in Roy's case) we discussed the 
future of our beloved system. The main problem 
is clearly the lack of development lately, especial- 
ly from Tony Tebby’s side, and in the end the con- 
clusion was that we need to take action into our 
hands. As | was the only one who had all the ne- 
cessary sources | eventually volunteered to have 
a look into some issues. The most urgent one 
was to implement access to the colour drivers 
into WMAN, because although the drivers are out 
now for 1 1/2 years not many applications use 
them as they are not accessible through the 
window manager. 

So | had a look at the data structures the window 
manager uses and discovered that the creators 
were wise enough to allocate 2 bytes for every 
location where a colour is defined. This leaves a 
bit of space for expansions. | finally came up with 
the following scheme which | also posted into the 
ql-users mailing list for discussion: 


Binary representation Meaning 
%00000000eeceecee exactly like before 


%0000000Lpppppppp index into the stan- 
dard 256 colour palette 
%00000010ssssssss index into a "system 
palette", see below 
Z00000011gegeggee grey scale value 
Zirrrrrgggggbbbbb 15bit RGB colour defini- 


tion 


The “system palette’ is an invention found in other 
systems and defines a standard appearance of 
the different applications. This means that it 
includes the standard colour used for the title bar, 
for a button, for the window background etc, you 
name it. The grey scale definition is a bit super- 
fluous because those colours can also be 
specified through the RGB definition, but it 
sounds like an elegant option to me nonetheless 
{and it's not really much work to implement). 

And well, to make a long story short, a first ver- 
sion of the mentioned changes is already running 
on my system. | have however only patched one 
application (using a hex editor) to actually use the 
new definition. A before/after screenshot of this 
can be found at 

http://www. kilgus.net/images/new-wman.png. 
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The second thing | addressed was the back- 
ground colour Currently it works by creating a 
window that is as big as the screen, fill it with the 
background and include it into the system in a 
way that it is unpickable and really just behaves 
like the background. The advantage of this me- 
thod is that it is very quick to implement, the dis- 
advantage is that a simple background colour can 
easily use up | or 2MB of system memory! So I'm 
currently experimenting with a version that uses 
another approach, it draws the background colour 
directly when necessary and doesn't rely on any 
background window (a background image is still 
handled as before as this needs to be some- 
where in memory anyway). 

OK, this saves some megabyte of RAM, but the 
applications themselves can still take up quite a 
lot of Soace so that much memory is needed. This 
is not per se a problem on systems like QPC 
where memory Is dirt cheap, but with much me- 
mory disc drives accesses gets significantly slo- 
wer because of the dreaded slave block Issue. | 
had a look at that, too, and it looks to me that the 
whole slaving code is incorporated into the sys- 
tem like cancer: bits and pieces everywhere. 

So the only solution! found so far is from the Atari 
version and is called "fast memory’. | don't know 
exactly the history of it but the bottom line Is that 
Atari's can have a separate block of memory 
which is, as the name suggests, obviously faster 
than the normal system memory but on the other 
hand can't be directly used for DMA accesses 
(like reads and writes from/to hard discs} and 
therefore is unsuitable for slaving. What essen- 
tially is done is that the whole SMSQ/E memory 
map is squeezed into the normal system memory 
and only the TPA (transient program area) is 
transferred to the fast memory block. This way 
slave blocks stay limited to the “common heap’ 
which remains in the slow memory, the memory 
allocation calls however first return Space in the 
TPA unless this is full, only then a block in the 
slower common heap is returned. 

In an experimental QPC | now fake this behaviour 
in a way that the first megabyte of RAM is used 
as the traditional “slow” memory and all the rest as 
‘fast’ memory. This way the slave blocks are 
limited to the first MB of RAM. The drawback is 
that most utilities {including the FREE_MEM 
SBASIC function) now only tell how much free 
Space is left in the “slow” memory block, i.e. they 
only return e.g. 700kb of free RAM while in reality 
there's another 60MB or something waiting In the 
‘fast’ block. 

So, that's how much | was able to do within 
roughly two weeks. Directly afterwards university 
demanded its time again and | had to stop playing 
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TE Services 


A UK 4-way trailing socket designed to switch off 
computer peripherals automatically when the com- 
puter is switched off, or (in the case of an ATX com- 
puter) when it auto-powers down. Compswitch has 
one control socket, and three switched sockets. 
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__...___ SuperHermes Sines 


A major hardware upgrade for the QL 
Alt Hermes features (working serl/2 at 19200, 
independent baud rates/de-bounced _keyboard/ 
keyclick) IBM AT kbd I/f // HIGH SPEED RS232 at 
57600// serial mouse port and 2 other RS232 inputs// 
3 V/O lines // EEPROM 
Cost (including manual/software)£90 (£92/£93) 
IBM AT UK layout Keyboard £11 (£13/£15) 
Serial mouse £8 (£8.50/£9) 
Capslock/scrotlock LED £1 (£1.50/£1,50) 
Keyboard or mouse lead £3 (£3.50/£3.50) 
High speed serial (ser3) lead £4 (£4.50/£4.50) 


Hermes available for £25 (£26/£27) Working ser1/2 
and independent input, debounced keyboard. 


SuperHermes LITE: All Hermes features (see 
above) + an IBM AT keyboard interface only. 
Cost (incl keyboard lead) £53 (£54/£55) 


—___ QL REPAIRS _(UK only) ____ 


Fixed price for unmodified QLs, excl microdrives. QLs 
tested with Thorn-EMI rig and ROM software. 


£27 incl 6 month guarantee 


Minerva 

The ORIGINAL : i 
OTHER FEATURES COMMON TO ALL VERSIONS 
DEBUGGED operating system/ autoboot on reset of 
power failure/ Multiple Basic/ faster scheduler- graphics 
(within 10% of lightning) - string handling/ WHEN 
ERROR/ 2nd screen/ TRACE/ non-English keyboard 
drivers/ “warm” fast reset. V1.97 with split OUTPUT 
baud rates (+ Hermes) & built in Multibasic. 


First upgrade free. Otherwise send £3 (+£5 for manual if requd). 
Send disk plus SAE or two IRCs 


MKL..£40 (£41/£43) MKIL..£65 (£66/£67) 


MINERVA RTC (MKID) + battery for 256 bytes ram. 
CRASHPROOF clock & PC bus for interfacing. Can 
autoboot from battery backed ram. Quick start-up. 


OIL RomDisq ___ 
Up to 8 mbyte of flash memory for the QL 

A small plug in circuit for the QL’s ROM port (or 
Aurora) giving 2, 4 or 8 mbytes of permanent storage - 
it can be thought of as a portable hard disk on a card, 
and reads at some 2 mbytes per second. 

Think of it - you could fully boot an expanded QL, 
including all drivers/SMSQ etc off RomDisg at hard 
disk speed with only a memory expansion needed. 


2 mbytes RomDisq £39 (£40/£41) 

4mbytes RomDisq £65(£66/£67) 

8 mbytes RomDisq £98 (£99/£100) 
Aurora adaptor £3 (£3.50/£4) 


MPLANE 
A low profile powered backplane with ROM port 


A three expansion backplane with ROM port included for 
RomDisq etc. Aurora can be fitted in notebook case and 
powered off single 5V rail - contact QBranch for details. 
Two boards (eg Aurora and Gold Card/Super Gold Card/ 
Goldfire fixed to base. Suitable for Aurora (ROM accessible 
from outside) & QL motherboard in tower case. Specify 
ROM facing IN towards boards, or OUT towards back of 
case. 


COSt .....s00000 Sassudéshavaseeucnsabenedesudsesebsesseed £34 (£35/£36) 


—____. Md BC INTERFACES 
Connects to Minerva MKII and any Philips PC bus 


Power Driver Interface 16 1/0 lines with 12 of these used to 
control 8 current carrying outputs (source and sink capable) 


2 amp (for 8 relays, small motors) £40 (£43/£44) 
4 amp total (for motors etc) £45 (£48/£50) 
Relays (8 3a 12v 2-way mains relays (needs 2a power 

£25 (£28/£29) 
Parallel Interface Gives 16 input/output lines. Can be 
used wherever logic signals are required £25 (£27/£28) 
Analogue Interface Gives eight 8 bit analogue to 
digital inputs (ADC) and two 8 bit digital to analogue 
outputs (DAC). Used for temp measurements, sound 
sampling (to 5 KHz), x/y plotting £30 (£3 1/£32) 
Temp probe (-40°C to +125°C) £10 (£10.50/£11) 
Connector for four temp probes... £10 (£10.50/£11) 
Data sheets £2 (£2.50/£3) 
Control software & manual (for all V/P).......£2 (£2.50/£3) 


QL SPARES _ 


no longer on sale 
£3 (£3.50/£4) 
£3 (£3.50/£4) 
£8 (£8.50/£9) 
£16 (£10.S0/E11) 
£12 (£17/£21) 


Circuit diagrams 

68008 cpu or 8049 IPC 

8301/8302 or JM ROM or serial lead 
Power supply (sea mail overseas) 


Prices include postage and packing (Airmail where applicable). Prices are: UK (Europe /Rest of world). Payment by cheque drawn on bank with UK address, 


postal order ar CASH! [can no longer accept card payments as UK only does PDQ transaction, SAE os IRC for full list and details 


10 May 61 


29 Longfield Road, TRING, Herts, HP23 4DG 


Tel: 01442-828254 
tonya firshman.demon.co,uk 


QL Today 


Fax/BBS: 01442-8282 


http://www.firshman.demon.co.uk 
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around with all the nice new features. 

In the meantime another, independent develop- 
ment began: Wolfgang Lenerz had a chat with 
Tony Tebby and Tony obviously agreed to release 
the SMSQ/E sources into the public. The details 
of it will be discussed at the Eindhoven meeting 
to which I'm travelling by train right now while 
writing these lines. More details on that will 
certainly be in another article in this issue. 

On another issue, a little bit before that announce- 
ment people on the mailing list asked during the 
discussion of the new high colour window mana- 
ger whether | could implement the new colour 
drivers for the Aurora card. | at least promised to 
have a look into the issue. Of course with 
SMSQ/E becoming open source anybody else 
could do them, too {and | would be glad if 
somebody volunteered) but it’s not exactly easy 


and so | fear it might still be me who has to do it in 
the end. But before even considering this | would 
like to know how many people still use an Aurora 
card and want to have the colour drivers for their 
system (and are willing to pay an upgrade fee for 
it) Please give some feedback to 
marcel@kilgus.net If | get no or not much feedback 
| probably won't invest any time into it, so if you 
want it, tell me! (if you don't have email access tell 
it to somebody who has, your local QL dealer for 
example ;-) 

| think after all the conclusion is that the QL world 
is finally moving again. | will certainly develop a 
few things like the ones mentioned above and 
some others have already said to look into other 
features once the sources of SMSQ/E are availa- 
ble. Stay tuned for more news in the next QL 
Today issues. 


SMSQ/E Source Code to be 


made available 


Wolfgang Lenerz 


For those of you that don't read 
the mailing list, some important 
news: The source code for 
SMSQ/E will be made available 
to anybody who requests it. 


Indeed, during the second half 
of March, Tony TEBBY was ap- 
proached to see whether he 
would agree to make his 
source code more widely avai- 
lable. This way, there might be 
a way out of the dead-end OS 
development has been in for 
the last months, it becoming 
obvious that Tony, failing suffi- 
cient funds, would not be able 
to continue development. 
Since other people (Marcel 
Kilgus comes to mind) do want 
to continue to develop 
SMSQ/E, to be able to incorpo- 
rate new features and/or cor- 
rect what may be perceived as 
bugs, it would be a good idea if 
the source code was made 
more open. 

Tony then agreed to this in 
principle, provided a way was 
found to have something 
coherent. 
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The desire of having coherent 
versions of SMSQ/E was also 
expressed by all of those | 
personally contacted. ‘This, 
however, implies some degree 
of control over what is finally 
done with the code. 


Since a meeting in Eindhoven 
was scheduled for the 23rd of 
March anyway, it was thought 
that this was a good time to 
discuss all of this. 

Following the discussions at 
Eindhoven, here is what has 
been agreed upon,  lony 
TEBBY also having agreed to 
It: 


In short: 

Whilst Tony Tebby will retain 
copyright over the code, any- 
one may have a copy of the 
source code, modify it and give 
it away for free. 


However, there will also be an 
official version of SMSQ/E that 
will be maintained by a registrar 
and be sold by 2 people, 
namely Roy Wood and Jochen 


Merz. Support for this official 
version wil be part of the 
selling price. The purpose for 
the official version is to make 
sure, aS much as possible, that 
any change to SMSQ/E for one 
machine (e.g. Q60 or QPC) will 
percolate down to all other 
machines (e.g. QPC, Q40, QXL 
etc...) aS fast as possible, in an 
attempt to make sure that we 
have one single version with 
the same features (hardware 
permitting) for all machines. 
Any change made by anybody 
may be proposed to the regis- 
trar for inclusion in the official 
version. 


The above is the essence of 
what was agreed upon, a more 
detailed version is, however ne- 
cessary, aS some legalities 
have to creep in. This was 
made clear in an ‘official state- 
ment’, as follows: 


Official statement 


1, Tony TEBBY retains copy- 
right of SMSQ/E as it stands 
Now. 


2. SMSQ/E will be made avai- 
lable, aS source code, to any 
person who so requests it. The 
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request must be made to the 
‘registrar’, Le. me. The source 
code will be sent via CD ROM, 
thus the request must be 
accompanied by 3 IRCs, else it 
will be ignored. 

The SMSQ/E that will be so 
made available is the SMSQ/E 
as it stands NOW. Any future 
additions/changes may, or may 
not, be excluded from_ this, 
since the authors of such addi- 
tions/changes may state whe- 
ther they want their source 
code to be included in the offi- 
cial distribution, or not. 


3. No distribution of SMSQ/E 
may be SOLD, except for the 
official distribution. This interdic- 
tion includes that of including 
and distributing SMSQ/E_ in 
Public Domain Libraries. Official 
distributions will be sold in com- 
piled form, possibly together 
with the official distribution as 
source code. For such sales, 
for the time being, two distri- 
butors, namely Jochen Merz 
(JMS) and Roy Wood 
(QBRANCH) have been appoin- 
ted by the copyright holder. 


4. The registrar will maintain 
official distriputions of SMSQ/E, 
one for each machine on which 
SMSQ/E may run. 


5. Any person may make any 
change to the source code he 
feels like. Any person may give 
away to others the modificaton 
he thus made, including the 
official distribution in source 
code form only, provided this is 
made ENTIRELY FOR FREE - 
no charges, not even copying 
charges, or charges for the 
media on which this is. distri- 
buted, may be levied! 


6. Any such change may be 
proposed to the registrar for 
inclusion in the official distribu- 
tions of SMSQ/E. 
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When making such a proposal 
for inclusion, the author of the 
addition/modificaton may state 
whether the inclusion: 

- IS to be made only in the 
compiled form of the official 
distribution; 

- iS to be made alongside, but 
not included in, the official 
distribution. 


Failing such a statement, the 
inclusion will be contained in 
the compiled and the source 
code versions. The author then 
agrees to the limitations as set 
out above. 

Authors retain copyright over 
their — additions/modifications, 
but when submitting their addi- 
tions/modifications, they agree 
that, if hey are accepted in any 
official distribution (under the 
statements as set out above), 
the may be included in all other 
future distributions (in other 
words, you cant submit 
something, which is included, 
and then some months later 
attempt to withdraw it). Their 
contribution is subject to the 
same licence as the rest. 


7. A styleguide will be main- 
tained by the registrar, to which 
any addition must adhere. The 
styleguide will be part of the 
Official distribution 


End of official statement. 


The above text is what is 
hoped to be a finely tuned 
compromise between those 
who want only a totally open 
source, and those who want to 
be able to retain full control 
over their code. It is not easy to 
reconcile these two positions, | 
hope that this is a reasonable 
compromise. 


When submitting the above 
statement to the mailing list. | 
added some personal com- 
ments: 


A - Some passages of the 
above, mainly those which 
result in a limited distribution of 
SMSQ/E may look pretty harsh 
to some of you, especially the 
proponents of totally open 
software. 

However, | consider that there 
are a few people (like JMS and 
Qbranch) who are the glue that 
hold the QL world stil together 
lf they have absolutely no fi- 
nancial incentive to continue, 
they probably won't. In my 
opinion, the effect on the QL 
World could be disastrous. 
There are also some other 
people, like Marcel Kilgus, who 
have put an enormous effort 
into SMSQ/E, and would like 
their efforts to be retibuted in 
some way. Others, such as 
Peter Graf, have invested much 
of their time and money to 
design hardware which is stil 
being built and sold - if no 
coherent verson of SMSQ/E 
exists, then the effect on sales 
could also be disastrous. 


The above all implies that some 
incentive exists for people to 
a) maintain an offical registra- 
tion 

b) pour more time into develop- 
ments beneficial to all versions 
of SMSQ/E 

c} BUY the official distribution, 
to have something coherent 
and supported. This incentive 
can only result, in such a small 
world as ours, from some 
restriction on the copyright. 

| HOPE you can agree with this. 
| KNOW some of you will not. 

| HAVE donned my flameproof 
vest... 


B - | have been appointed as 
the registrar (more by default 
than anything else). | will try to 
fullfil that role as well as possi- 
ble. My main aim is to make 
sure that we have coherent 
versions for all machines. There 
will always be ‘locomotives’, i.e. 
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people doing something new 
for one version of SMSQ/E, 
which will then also be applied, 
hardware permitting, to other 
versions. 


However, | can not do that work 
(alone). | NEED the help of some 
of you (who will be "key develo- 
pers’ for one machine) so that 
they can implement the neces- 
sary changes (if any) for each 
specific machine. 


Thus | make a PLEA for volun- 
teers. Obviously, for SMSQ/E 
running on QPC, Marcel Kilgus 
will be the key developer For 
SMSQ/E on Q60/Q40, the ob- 
vious persons would be Claus 
and Peter Graf (yes, | Know, I'm 
trying to twist your arms here, 
Claus and Peter :-) and perhaps 
also Jerome Grimbert (7)). 
What about the other ma- 
chines? Anybody out there 
interested: 

QXL (Thierry Godefroy?) Atari? 
Aurora? SuperGoldCard? 


C - | will always welcome {with 
WIDE OPEN arms, believe me) 
any modification already co- 
ded by anyone for inclusion. | 
must, however, retain the right 
to reject any code, if, for some 
reason, this would be unsui- 
table. However, | will certainly 
not reject anything, unless for 


pretty strong reasons (most 
probably becuse this doesn't 
comply with the styleguide). 
(Actually | probably will never 
reject anything, because | don't 
believe that | will get so many 
things to be inluded.... 


As you noticed, there will be a 
styleguide. The purpose of the 
styleguide is to make sure that 
we have coherent source 
code. There is nothing worse, 
when trying to understand 
other people's code, than 
having to go through code that 
is written in very different 
forms. Since, at the time of 
writing, ALL of the code com- 
plies with one style (le. Tony 
Tebby's style), we would really 
like any new code to comply 
with that! 


D - | can already sympathize 
with people who don't want 
their additions to be part of the 
official distribution, since they 
would agree to a limitation of 
their own copyright. | shall try 
to set up a scheme whereby 
these additions can be distri- 
buted {in form of modules, or 
smply code to be LRESPR'D) 
alongside the official distribu 
tion. 


E - There will always be a lag of 
time between one feature 


coming out on one version of 
SMSQ/E and then being 
ported to the other versions. | 
shall strive to keep this lag as 
small as possible, but | feel that 
it is not such a good idea to 
penalise the one — version 
having the new feature by 
waiting for all of the other 
versions to have It. 


F - Time (or lack of it). It willbe a 
few months before the entire 
code will be given to me, diges- 
ted and recompiled etc. Please 
be patient. Address your re- 
quests for new features to me. | 
will attempt to discuss every- 
thing with the key developers 
to see what can be implemen- 
ted. 


G - Is anyone interested in 
doing a nice documentation 
package? So many people out 
there have protested about no 
documentation being available. 
NOW is your chance to make a 
contribution. 


Please people, consider the 
above very carefully Don't 
reject it out of hand - let's try to 
unify our resources to move 
forward! 

QI Forever - now more than 
ever! 


Clocking On (Part 2) 


David Denham 


In the second part of this series we'll look at 
some useful little bits of SuperBASIC to handle 
time and dates on the QL. None of this will be 
too difficult, it should be easy enough for those 
who consider themselves ‘beginners’ when it 
comes to BASIC programming! 


The first and shortest listing is shown in Figure 1. 
Just call it with the year number as a parameter 
and it will return 1 if that year is aleap year or 0 if 
not. Years are leap years if the year number is 
divisible by 4, unless it's the turn of a century 
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(e.g. 1896 was a leap year but 1900 was nol). 
However, the turn of a century may be a leap 
year if the year number is divisible by 400 (ie. 
every 4th turn of a century is aleap year - 2000 
was a leap year for example). This is summarised 
by the code in line 3030, which is a rather 
fearsome looking line of BASIC but works well 
enough. 


3000 DEFine FuNetion LEAP_YEAR (year) 
3010  LOCal leap | 
'3020 leap = 0 | 
3030 IF (year MOD 4) = O AND NOT (((year MOD | 
| 100) = 0) AND ((year MOD 400) > 0)) | 
i THEN leap = 1 ! 
13040 RETurn leap 
|3050 END DEFine LEAP_YEAR 
Figure 1: Function to determine if a leap year or not 
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The powerful 
Sinclair QL 
successor 


Have you ever dreamt of QLs that are more than 100 times faster, have many thousands of colours, high 
resolution graphics, stereo sound, fast harddisks and modern periphera! capabilities? New complete com- 
puters that run your QL software and open the door to unreached 68060 speed and advanced applications? 


Here they are! 


Q40i : 68040 CPU, 40 MHz, Math. Coprocessor, MMU 
Q60/66: 68060 CPU, 66 MHz, Math. Coprocessor, MMU 
Q60/80: 68LCO60 CPU, 80 MHz, MMU 

68060 superscalar architecture, dual execution units 
Up to 160 BogoMIPS performance for QDOS+SMSQ/E 
4 to 128 MB RAM, PS/2 module sockets 

256 to 1024 kB ROM 

Highspeed 32 bit graphics, with original QL modes 
65536 colours at 1024 x 512 pixel resolution 

Multisync monitor output 

PC Keyboard interface (DIN) 

20 kHz Stereo sound 

Battery buffered clock, 2 KB nonvolatile RAM 
Controller for 2 IDE harddisks or CD-ROM 


2 Serial ports with 115200 Baud, Parallel port, Joystick 
port (on !O card supplied with mainboard) 


Hardware extension slot supports ISA cards 

Fits directly into Minitower or other standard case 
+5V /+12V power supply 

No tinkering, no parts from original QL needed 
Mainboard size 8.2 x 6.3 inch 
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The Q40i and Q60 give you the choice of three different operating systems: 


éy SMSQ/E - The QDOS compatible, but faster and more modern operating system. 
The first choice for most Q40 and Q60 users. Allows you to run the majority of QL programs, has a 
much improved BASIC. SMSQ/E supports a lot of the advanced Q40 and Q60 hardware capabilities, 
including full highcolor graphic drivers and sampled sound ! 


& QDOS Classic - A multitasking operating system with good compatibility for older QL programs. 
Includes harddisk and sound support. It was the first operating system for the Q40. Full 68060 support. 


& 68k Linux - The free Unix-like multiuser / multisession operating system. ae 
The Q40 and Q60 are the first and only QL style computers that run Linux. Linux on the 
Q40 and Q60 offers you an endless amount of application software, including X Window 
System, full Internet access, graphical Webbrowser, CD-ROM writing, MP3 player. 
There is a special Q60 Linux distribution with graphical installation tool on CD-ROM. 


The Q40i and Q60 are offered as mainboards or cased systems by: 


D & D Systems, P.O. Box 5813, Ripley, Derbyshire, England DE5 9ZR 
Tel: +44 (0)1773-740170, FAX: +44 (0)1773-748399, Email: sales@aq40.de 


More information about the Q40i and Q60 at the official Website: http://www.a40.de, Email: info@aq40.de 
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The calendar we use these days was originally 
invented by a Pope Gregory (the Gregorian 
Calendar}. It was created to run from 15/10/1582, 
although it only came into use in Britain in 1752. 
The calendar is obviously based on a 365 day 
year with the occasional 366 day year to make 
up for the fact that a solar year (time for Earth to 
go round the Sun) is about 365 days plus 5 
hours, 48 minutes and nearly 46 seconds, about 
365 and a quarter days, hence the addition of an 
extra day every four years and the adjustments 
at the turn of each century. This calendar is so 
accurate in fact that only one day's error is 
accrued every 3320 years. The Gregorian 
calendar runs from 1582, so the error will not 
amount to a full day until about the year 4902! 


We won't be around by then to worry about it of 
course, the QL or its derivatives may be (Q60 
may have become Q60E6 by then of course!) 
Actually, the QL clock will end its useful life 
sometime in the next century, the actual time 
being determined by whether your QDOS or 
SMSQ system uses signed long word values for 
its time counter or not (see Mark Knight's articles 
in earlier QL Todays for more on this subject). 


Once armed with enough facts on how the 
theory of calendars and how the QL handles 
times and dates we can start to write some 
more interesting little routines. For example, how 
far into a year are we - how many days have 
elapsed so far this year? Figure 2 to the rescue! 


PRINT DAYS_SO_FAR(2002, 3, 31) should print 90, 
being made up of 31 days in January, 28 days in 
February and the 31 days of March. If you had 
used the year 2004 instead, it would have added 
1 for February, giving a result of 91. This routine 
gives the number of days elapsed since ist 
January. To calculate from any other time of the 
year eg. if your tax year starts on 6th April and 
you want to find out how far into the tax year 
you are by 6th July: 


REMark first calculate days to just before start 
date 

LET timel = DAYS_SO_FAR(2002,4,5) 

REMark now calculate difference between dates 
PRINT DAYS_SO_FAR(2002,7,6) — timel 


| 2000 DEFine FuNetion DAYS_SO_FAR (yr,mth, dy) 


2010 LOCal total 
; 2020 total = 0 
| 2030 SELect ON mth 
2040 =2 : total = 31 
| 2050 =3 : total = 59 
| 2060 =4 : total = 90 
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2070 = : total = 120 

2080 =6 : total = 151 

2090 27? total = 161 

2100 =8 : total = 212 

2110 = : total = 243 

| 2120 =10 : total = 273 

| 2130 =11 : total = 304 

2140 =12 : total = 334 

2150 END SELect 
2160 IF mth 2 THEN total=total+LEAP_YEAR(yr) 
12170 ~=—s total = total + dy 

|2180  RETurn total 
'2190 END DEFine DAYS_SO_FAR | 
| Figure 2 Function to calculate number of days elapsed by this 

' date (needs the LEAP_YEAR function from Figure 3) 


lt can sometimes be useful to set up an array 
with a list of days in each month, to help with 
various time-related calculations. Figure 3 shows 
an example, which holds the data for a 365 day 
year The program then calls the LEAP_YEAR 
function to check if a 29th day needs to be 
added for February or not. 


So simply enter the command SETUP_MONTHS 
2000 to set up an array called monthdays 
containing the number of days in each month for 
the year 2000. 


| 3000 DEFine FuNection LEAP_YEAR (year) 

| 3010 LOCal leap 
3020 leap = 0 

/ 3030 IF (year MOD 4) = 0 AND NOT (((year MOD 100) 

| = 0) AND ((year MOD 400) >» 0)) THEN leap = 1 
3040  RETurn leap 

| 3050 END DEFine LEAP_YEAR 

| 3060 : 

| 4000 DEFine PROCedure SETUP_MONTHS (year_no) 

/ 4010 LOCal a 

| 4020 DIM monthdays(12) :REMark ignore subscript 0 | 

| 4030 RESTORE 

| 4040 DATA 31,28, 31,30, 31,30, 31, 31,30, 31,30, 31 
4050 FOR a = 1 TO 12 : READ monthdays(a) 
4060 IF LEAP_YEAR(year_no) THEN monthdays(2) = 29 
4070 END DEFine SETUP_MONTHS 

; Figure 3: Setup an array to hold number of days in each month 


Although routines like this will give us the basic 
information to do such calculations, we may from 
time to time need to know what day is associa- 
ted with each date. The QL provides a function 
called DAY$ to tell us the current day, and by 
temporarily setting the QL clock to the date 
concerned we could extract the name of the day 
as a three letter word (Sun, Mon, Tue, Wed. Thu, 
Fri, Sat} like that. Alternatively, we can set up an 
array with the full name of the seven days: 


= "Sunday" 
"Monday" and so on. 


dayname$(1) 
dayname$(2) = 
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Another calculation which can be a bit daunting is 
handling differences in times. Take an employee 
clock-in system, for example, where the system 
gives you the time the employee clocked in and 
clocked out, you need to work out how many 
hours the employee worked. 


IN : 09.30 
OUT : 17.30 


Obviously, this one is trivial - the time would be 8 
hours and could be calculated simply by subtrac- 
ting 9 from 17. The easiest way to handle such 
calculations is by converting the time to minutes 
and doing the calculations with minutes rather 
than struggling with fractions of hours. 


intime = 9%*60+30 
outtime = 17%*60+30 


1050-570=480 
480/60=8 


Obviously, using the 24 hour clock system is 
much easier when handling time calculations 
since it prevents you having to try to work out if 
6.00 is 6AM or 6PM for example (that's usually 
obvious ~ if the end time is ‘less’ than the start 
time, the start time must be AM and the end time 
PM, so add 12 to the number of hours!) 


5000 DEFine FuNetion TIME_DIFFERENCE 
i 


(time1$, time2$) 

5010 LOCal a 

5020 REMark returns the difference in minutes 
between the two time 

5030 REMark strings, equivalent to time2$-time1$ 

or "1'700"-"0900" 

15040 ti = 60*%time1$(1 TO 2)+time1$(3 TO 4) 
5050 «= t2: «= 60*time2$(1 TO 2)+time2$(3 TO 4) 
5060 RETurn t2-tl 
| 5070 END DEFine TIME_DIFFERENCE 
5080 : 


5090 DEFine FuNetion HOURS(mins) 
5100 RETurn mins DIV 60 

| 5110 END DEFine HOURS 

5120 : 

5130 DEFine FuNetion MINUTES(mins) 
/5140  RETurn mins MOD 60 

'5150 END DEFine MINUTES 


| Figure 4 Calculate differences in times 


The TIME_DIFFERENCE function in Figure 4's 
listing takes two strings denoting 24 hour clock 
times and converts them to minutes, then 
subtracts one from the other and returns the 
difference in minutes. If you wish to reduce that 
difference in minutes to hours and minutes, use 
the two functions HOURS and MINUTES to re- 
duce the total number of minutes back down to 


QL foday 


hours and minutes by using DIV 60 and MOD 60 
respectively, 


lf we are taking time and date information from 
the string returned by DATES it is a simple matter 
to slice the string to extract the relevant numeric 
parts, with the exception of the month number 
since this is returned as a string with the first 3 
letters of the name of the month in whatever 
language the operating system is programmed it 
display: 


LET temp$ = DATE$ 
2002 Jan 27 11:06:23 


We can split the time and date up as follows, 
apart from the month: 


year_number = temp$( 1T0O 4) 
month$ = temp$( 6 TO 8) 
day_number = temp$(10 TO 11) 
hour_number = temp$(13 TO 14) 
min_number = temp$(16 TO 17) 
sec_number = temp$(19 TO 20) 


One way of converting month$ to a number from 
1 to 12 would be a list of IETHEN statements: 


IF month$ = "Jan" THEN LET month% = 1 


If your operating system supports string select 
Statements you could use: 


SELect ON month$ 
="Jan":month%=1 
="Feb":month%=2 
="Mar":month%=3 
="Apr":month%=4 

and so on 

END SELect 


In fact, here's a way of doing it all in one line, 
using INSTR: 


month% = ((month$ INSTR 
"JanFebMarAprMayJunJulAugSep0ctNovDec") 
DIV 3)41 


OK, time for some light relief to digest and use 
the above information. Trekkies, read on. We are 
going to produce a program which will give you 
a ‘Star Date’ clock for your QL. Then with a bit of 
luck the QL might make a guest appearance on 
Star Trek some day.the QL won't just take over 
all earth computing as we know it but take a big 
step beyond the final frontier 
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Let me explain myself before you think I've gone 
mad! 


lf you watch Star Trek you'll probably know about 
Star Dates. You may have seen Captains Kirk, 
Picard, Sisco and Janeway quote figure like 
40123.4 and wondered whether they were 
random values or whether there was some 
theory behind them. The answer is a bit of yes 
and a bit no. 


The Star Dates quotes in the original Star Trek 
series are not based on the same information 
and statistics as the other series. All series seem 
to use 1000 stardate units for each earth year 
with one unit equivalent to one day, meaning that 
only 365 or 366 units are used of every year {in 
case an over-zealous phaser blast knocks earth 
out of orbit and makes the year longer no doubt). 


Days begin at midnight luckily and the digit after 
the decimal point represents (logically enough) 
tenths of a day. 


Since TOS (Trek Original Series} seems to use a 
different tyoe of Star Date to the other series, 
we'll base our system on that used in Star Trek 
Next Generation (TNG). The new Enterprise 
series iS set in the 22nd century (before TOS) 
and doesn't seem to use stardates as such. 


The first episode of TNG is set in the year 2364, 
star date 41153, so if we backdate 1000 units per 
year we arrive at the first stardate in the year 
2323. 


| have seen several different methods of calcula- 
ting star dates, not all of which are consistent and 
with no real agreement on which is best. Some 
of the methods assume that each year is a leap 
year (i.¢. all Star Date years seem to correspond 
to 366 days). 


The basic methods of calculating star dates 
seem to use formulae similar to the one in Figure 
5 


Calculate number of years elapsed since start 
| date | 
|Add fraction of this year elapsed so far 
|Multiply by 1000 to get Star Date as a whole 
/ number 

Add number of tenths of a day elapsed 


16000 stardate = INT(1000*(year-start_year+ | 
(day_of_year/365)) + (INT(10%*fraction_of_day)}/10 
| Figure 5. Formula for calculating Star Dates 


i 
im . ea : 8 _— 
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You need to know the start year on which to 
base the star dates. For TNG it is 2323. If you 
intend to use it for 20th or 2ist century, the 
consensus seems to be fo start these off at 
1947 (| don't know why). 


So you start off by subtracting the base year 
number from the current year number then add 
the fraction of year elapsed so far by simply 
adding up days elapsed in this year and 
calculating it as a fraction of a full year - this may 
be 365, 365.25 or 366 days as you prefer The 
TNG system uses 366, you may prefer to use 
365.25 to allow for every fourth year being a 
leap year, it's not too significant. Round this off to 
the nearest unit and multiply by 1000 to get the 
Star date. Finally add the number of tenths of a 
day elapsed as the first decimal place and you 
have a stardate. 


The beauty of such a system (if there is one!) is 
that it can support negative star dates too. So 
just because the TNG Star Dates system starts 
from 2323, it doesn't mean we can't use it in 
2002 or earlier, it's just that it's a negative number. 


We'll need some of the routines we've already 
designed. We'll call this version, designed to 
display present day times as Star Dates, the 
Negative TNG method since it is designed to 
display’s dates as negative star dates relative to 
the start of the Trek New Generation series star 
dates. 


The listing is shown in Figure 6. 


| | 250 


| 190 
| 210 
| 220 


' 230 


| 270 
' 280 


| | 290 


100 REMark TNG Star Dates (Negative TNG method) 


110: 


| 120 REMark following allows you to adjust to your 


Star Trek dates method 


| 130 base_year = 2323 : REMark Year at which Star 


Dates start 


| 140 days_per_year = 365 : REMark 365, 365.25 or 366 | 


150 : 


/ 160 CLS #0 


170 REPeat print_star_date 

180 IF INKEY$ = CHR$(27) : EXIT print_star_date 
time$ = DATES 

yrs = time$(1 TO 4) : REMark year number 
mths= ((time$(6 TO 8) INSTR 
"JanFebMarAprMayJunJulAugSep0ctNovDec") 

DIV 3)+1 : REMark mnoth number 

dys = time$(i0 TO 11) : REMark day number 
hr = time$(13 TO 14) : REMark hour number 
time$(16 TO 17) : REMark minute number 
se = time$(19 TO 20) : REMark second number 
star_date = yrs—base_year- (DAYS_SO_FAR 
(yrs,mths,dys)/ days_per_year) 

star_date = INT(1000*star_date) 

today = INT(10*(hr+(mi+(se/60) ) /60) /24) /10 
star_date = star_date—today 


200 


240 


260 
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DILWYN JONES 


QL P.D. SOFTWARE LIBRARY SERVICE 


A brand new PD software library service from QL author Dilwyn Jones. Hundreds of 
freeware, shareware and PD programs available on floppy disk at a price of just £1.00 per 
disk (or just 75 pence if you supply the floppy disk). Programs are normally supplied on HD 
disks unless you specifically request DD disks. 


CATALOGUE 


To obtain a free catalogue of the entire software library: 
1. Send me a formatted HD or DD disk and return postage, or 
2. Download the catalogue from my website (see address below), or 
3. By email — just send me an email to ask for the catalogue as a text file. 


CD-ROMs 


(Also available from QO-Celt Computing in Ireland) 


QL EMULATORS CD £5.00 - All of the available QL emulators! 
QL PD-CDR £5.00 - Gérard Plavec’s software collection! 
LINE DESIGN CLIPART CD £10.00 - Huge collection of Line Design clipart! 
FAMOUS FACES CD £10.00 — Line Design pictures of the famous! 

QL RELIGION CD £10.00 — A collection of bibles, religious texts, clipart etc 
DJ PD LIBRARY CD £10.00 — The entire PD library on a CD! Start your own! 


The CD-ROMs are supplied in OXL.WIN format on an ISO-9660 CD-R for use with OXL, 
OPC, QemuLator v2, uQLx, O40, Q60 (systems able to read OXL. WIN media) 


POSTAGE UK/Europe: add £1.00, Rest Of World: add £2.00. 
PAYMENT In UK Pounds Sterling currency. Cheques payable to DILWYN JONES. 


Dilwyn Jones, 41 Bro Emrys, Tal-y-bont, Bangor, Gwynedd, LLS7 3YT, U.K. 
Email: dilwyn.jones@dj.softnet.co.uk 
Website: http://www.soft.net.uk/dj/index.html 


Note: Although this service is run by the editor of QL Today magazine, it is a completely separate venture which 
has no connection with the publisher of this magazine. Software is supplied free of charge, apart from copying and 
media charges etc to cover costs, and without any warranty other than to the replacement of defective media (e.g. 
“bad or changed medium” errors etc.).In other words, usual PD library terms. E & OE. 
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300 AT #0,0,0 : PRINT #0,star_date 
310 END REPeat print_star_date 
320 STOP 
» 330 : 
340 DEFine FuNetion DAYS_SO_FAR (yr,mth, dy) 
350 LOCal total 
360 = total = 0 
370 SELect ON mth 
380 =2 : total = 31 
390 =3 : total = 59 
400 =4 : total = 90 
| 410 =5 : total = 120 
| 420 =6 : total = 151 
} 430 =7 : total = 181 
440 =8 : total = 212 
; 450 =9 : total = 243 
460 =10 : total = 273 
| 470 =11 : total = 304 
480 =12 : total = 334 
490 END SELect 
/ 500 IF mth» 2 THEN total = total + LEAP_YFAR(yr) 
| 510 total = total + dy 
| 520 RETurn total 
| 530 END DEFine DAYS_SO_FAR 
540 : 
550 DEFine FuNction LEAP_YEAR (year) 
560  LOCal leap 
570 leap = 0 
580 IF (year MOD 4) = 0 AND NOT (({year MOD 100) 
= 0) AND ((year MOD 400) » 0)) THEN leap = 1 | 
590  RETurn leap 


|; 600 END DEFine LEAP_YEAR 
| Figure 6: The Negative TNG Star Dates routine 


You can play with this to adjust it to your 
preferred method of calculating Star Dates. Since 
Star Dates are fictional creations, you can come 
up with your own system! 


Here's another listing, this time designed to show 
Star Dates as positive numbers for the present 
day! This is called the Starfleet Command me- 
thod, and the difference is that the calculation is 
based on starting at 1947, each year is assumed 
to have 366 days but of course you never get to 
the 366th day unless it's a leap year There are 
some minor differences in the method of calcula- 
tion. 


Figure 7 shows the basic calculation method, 
compare it with Figure 5. Star Dates start from 
1947. Numbers are rounded down instead of up, 
and years have 366 days. 


| 6000 stardate = 
366)+0.5) + (INT(10*fraction_of_day))/10 


Calculate number of years elapsed since start date | 
| of 1947 


Add fraction of this year elapsed so far 


| Multiply by 1000 to get Star Date as a whole number 


Add number of tenths of a day elapsed 


INT(1000% (year-1947+ (day_of_year/ 


Figure 7. Formula for calculating Star Dates 
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And Figure 8 shows the modified listing for gene- 
rating Starfleet Command dates for the 20th and 
21st centuries. Note how years are based on 366 
days and 29 days in February! 


| 200 
| 210 


' 100 REMark StarfleetCommand Star Dates (1947 method) 
|; 410 : 
| | 120 REMark following allows you to adjust to your 


Star Trek dates method 


| 130 base_year = 1947 : REMark Year at which Star 


Dates start 


140 days_per_year = 366 : REMark 365, 365.25 or 366 


150: 


; 160 CLS #0 


170 REPeat print_star_date 


180 IF INKEY$ = CHR$(27) : EXIT print_star_date 
|; 190 time$ = DATES 
yrs = time$(1 TO 4)  : REMark year number 
mths= ((time$(6 TO 8) INSTR 
"Jan FebMarAprMayJunJulAugSep0ctNovDec" ) 
DIV 3)4+1 : REMark moth number 
220 dys = time$(10 TO 11) : REMark day number 
| 230 hr = time$(13 TO 14) : REMark hour number 
240 mi = time$(16 TO 17) : REMark minute number 
250 se = time$(19 TO 20) : REMark second number 
| 260 star_date = yrs—base_year+ (DAYS_SO_FAR 
(yrs,mths,dys)/ days_per_year) 
270 star_date = INT((1000*star_date)+.5) 
280 today = INT(10*((hr+(mi+se/60)/60)/24)) /10 
290 = star_date = star_date+today 
| 300 AT #0,0,0 : PRINT #0,star_date 
310 END REPeat print_star_date 
320 STOP 
| 330 : 
340 DEFine FuNetion DAYS_SO_FAR (yr,mth, dy) 
350 LOCal total 
, 360 total = 0 
370 SELect ON mth 
380 =2 : total = 31 
; 390 =3 : total = 59 
| 400 =4 +: total = 90 
| 410 =5 : total = 120 
420 =6 : total = 151 
| 430 =7 : total = 181 
| 440 =8 : total = 212 
| 450 =9 : total = 243 
| 460 =10 : total = 273 
470 =11 : total = 304 
480 =12 : total = 334 
490 END SELect 
500  REMark StarfleetCommand years always have 29 
days in February! 
' 510 IF mth > 2 THEN total = total +1 
520 total = total + dy 
/ 530 RETurn total 


; 540 END DEFine DAYS_SO_FAR 
| Figure 8: Starfleet Command star dates listing (1947 method) 
L oa = si ‘ 
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And finally, a tiny little competition with no prizes 
except perhaps seeing your name in print in QL 
Today. As we have decimalised just about every- 
thing in sight apart from time, here comes the 
definition of DDT (Denham Decimal Time}. The 
first QL based improvement in time. 


It's actually based on something a friend found 
on the internet, but adjusted to suit our needs. 
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Denham Decimal Time — The 
Definition 


The UK will shortly be converting to metric time, 
the actual date of conversion to be announced at 
a later time (probably to coincide with a new 
volume of QL Today). 


When formally introduced, there will be no more 
ridiculous arithmetic based on 12s, 24s and 60s. 
Sadly, as even the QL cannot manipulate the path 
of earth around the run, we are forced to con- 
tinue with the present length of year as 365 or 
366 days. 


Within that, though, the system shown in Figure 9 
will be introduced. 


oe see aid a = —_ nee 


OLD TIME UNIT NEW TIME UNIT 

1 second 1 milliday 

'1 minute 1 centiday 

1 hour 1 deciday or 1 millimonth 
/1 day 1 deciweek 

1 fortnight * withdrawn * 

; 1 month 1 hectoday 

1 year 1 kiloday 


Figure 9: Proposed new time units 


See if you can come up with a basic program 
which will display the time using the method 
shown. DO bear in mind, though, that it will not be 
too far from April ist when you see this in print. 


lf you can't quite grasp that one, try this. An 
astronomical year is 365 days, 5 hours, 48 
minutes and 45.974 seconds. A present day 
based on 24 hours of 60 minutes of 60 seconds 
is 86,400 seconds per day. 365 days consists of 
31536000 seconds. Add _ the — remainder 
(20925.974 seconds) and you get a ‘true’ 
astronomical year of 31586925.974 seconds. 


Devise a system which gives a true year date, 
preferably a decimal system. Bear in mind that 
the length of day may need to be the same or 
similar as the present day for daylight purposes. 
I'll see if | can persuade the editor to publish the 
best ones received. Am | asking the impossible? 


More next issue, with a look at the Zeller's 
Congruence method of calculating dates, 
assuming | understand it myself by then! 


Hove Workshop 9009 


Bruce Nicholls 


A few weeks ago saw the annual pilgrimage down to the south coast for 
the Hove WorkshopThis year the journey down proved uneventful and for 
once the sun shone (You can never trust the great British Weather to be 
in pereoll The usual commercial suspects were lining up for interegation | 

These were TF Services (Tony '6 


Dilwyn 
Jones, 


(well 
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Shed’ Firshman), 
(Geoff ‘Trains late again’ Wicks), 
| hate PC's & Epson’ 
QCelt 
working till late - Honest’ Branagh, 
Jochen ‘crisps’ Merz with co hort 
Marcel ‘Pizza’ Kilgus and a new g 
welcomed addition) D&D 
‘Mines faster than yours’ Systems. 
Quanta were in attendance with 
Bill Newell 
manning the stand. Throughtout 

- the day we were treated to a full 
~ ensemble of catering delights | 
from the Wood family members. | 
_ There was such a rush on food ! 
this year that several ‘top up trios’ were needed to keep up 
with the ravenous hoards (a very good sign the QL scene is 
still active) which kept the catering team busy. Most attention 
of this show was taken by D&D systems who had on display 


Just Words ; 


(Darren |) was 


and John — Taylor 


a 
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the new Q60 and Q40i 
machines from the Graf 
brothers. These are now 
available in Kit form or full 
isystems built to your 
| specification, Im sure there 
| |S a full advert in this Issue 
(suitable photograph — en- 
e closed). A new version of 
QPC2 v3 was released at 
the show which corrected a 
feature’ in the Dos device ° 
and Marcel was taking 
requests for the next ver- 
sion. It was good to see 
there is still a lively interest 
in the QL shows and if your near one do take time to 
attend. 


Bringing scrap and stuffer together 


Marcel Kilgus 


The QPC users among you will 
know that QPC can keep the 
Windows clipboard and the 
scrap buffer of the menu 
extensions in sync. This comes 
in very handy if you need to 
cul and paste something from 
Windows to an application that 
uses the scrap, usually QD. But 
sometimes | found it very 
annoying to cope with applica- 
tions that do not use the scrap 
extension. In this case it would 
be much better to have the 
text in the stuff buffer of the 
hotkey system so it can be 
pasted into every application 
simply by pressing AlT+space. 
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Instead of writing many lines of 
assembler code to extend 
QPC’s SyncScrap function | just 
spent one minute to create 10 
simple SBasic lines which 
check the scrap buffer for 
changes once per second and 


100 JOBLNAME 'SyneStuff! 
110 OPEN#3,con_0x0a0x0 
120 OldCnt% = SCRAP_CNT 
130 REPeat 


update the hotkey stuff buffer if 
necessary. The program can 
be EXECuted and will then just 
run in the background without 
consuming much processor 
time. | hope this is as useful to 
some of you as it is for me: 


140 IF SCRAP_CNT «> O1dCnt% THEN 


150 HOT_STUFF SCRAP_GET$ 
160 OldCnt% = SCRAP_CNT 


170 END IF 
180 PAUSE #3,50 
190 END REPeat 
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Here we are at the end of 
volume 6 of this magazine. | am 
glad that you are all still with us 
and | hope that you will all be 
renewing your subscription for 
another year (hint hint). What 
would | do with my time without 
Jochen breathing down my 
neck to get the finished copy 
for this column. As usual | am 
putting the finishing touches to 
the column just hours before 
the deadline which is just days 
before it goes to press and 
gets sent out to you. At least it 
is current. 


Defrag That User 


Group! 

As You all should know | read 
the QL Users Group most 
nights (when the PC is not 
having a nervous breakdown 
as it has been recently). | have 
ambivalent views about it. 
Some of the discussions that 
get going are intensely techni- 
cal and some are very concen- 
trated on the minutiae of the 
programmers art. Some of 
these are a wonder to read 
especially when experts like 
Nasta and others get involved. 
There are others which verge 
on the boring or repetitious be- 
cause, either one of the parties 
involved has missed a previous 
version of the discussion or be- 
cause some of the writers are 
of the Bulldog persuasion and 
won't drop the bone even 
when everyone else has said it 
is only a stick. You can gloss 
over these (before the eyes 
glaze over) but it must be a bit 
galling for those with a slow 
connections to download a lot 
of stuff that is of no interest to 
them. 
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At other times, however it fulfils 
its function wonderfully. Provi- 
ding help and enlightenment to 
those who need it. |, myself 
have always regarded it as the 
cybernetic equivalent of the 
chat in the pub after a QL show 
and | tend to tolerate the ‘off 
topic’ stuff in the same way as | 
do the ‘on topic but very te- 
dious’. Sometimes the ‘off to- 
pic’ can be very funny and 
sometimes it can even be very 
informative. | do tend to take 
my anorak off at times and | do 
see something of life out side 
of the glass goldfish bowl that | 
spend so long staring at (must 
get a flat screen). Recently 
there was a discussion of 
computer viruses started be- 
cause one of the contributors 
to the list also contributed a 
virus and that led some people 
to go into great lengths to 
explain how to avoid them and 
and, better still how to stop 
yourself passing them on. Now 
| happen to think that is very 
valid and, although the QL or 
any QDOS/SMSQE system are 
not targets for these attacks, a 
large number of people are 
using QPC 2 (and! do not want 
to get back into the QPC2 vs 
the world argument here). This 
means they are running the 
system on a PC and are, by 
that, vulnerable. Given that 
many of them bought a PC to 
get email, web access and a 
QL all in one box and that most 
are not as well versed in the 
arcane mysteries of the PC as 
those who have to struggle 
with it daily, any knowledge of 
this nature that is imported to 
them will make all of our lives 
easier 


The upshot of the argument 
was that certain people threw 
their toys out of the pram and 
ran off to another playpen. A 
comment of ‘Enough is enough 
please carry on the discussion 
orivately’ is fine but a lie down 
tantrum of the | didn't want to 
play with you anyway’ variety 
is uncalled for. 

A similar spat happened a 
while ago with people calling 
for less LINUX / Q40 stuff on 
the list and that moved over to 
the qldevelopers list. Even 
further back in time another 
person (no names - no pack 
drill) called for us all to abandon 
the ql-users list and go onto the 
Maus group which was echoed 
on the BBS and thus available 
to non-connected users. In 
response to the recent spat 
Dave Parks set up the QL-Chat 
forum for those of us who want 
to do just that. 

All of this means that we now 
have four possible places to 
ask for help and discuss things. 
The qldevelopers one chugs 
along quite happily its user 
base and there is still a fair 
amount of traffic in the ql-users 
one. The Maus group is domi 
nated by the occasional sex ad 
and nothing else and | have yet 
to get a message on the 
QL-Chat one. So where does 
all of this leave us? Fragmented, 
in a word. Just as in the wide 
world outside intolerance has 
driven us into enclaves where 
we can say what want and not 
be called heretics or frivolous 


Ink - again 

Most of the information for this 
section came from Rich Mellor 
who is still sick but has been 
badgering EPSON for a few 
crumbs of information. The up- 
shot of his quest is revealed 
here. 

To start with, as previously sus- 
pected, EPSON have quietly 
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changed the standard for 
ESC/P2. Up till now it has been 
available from DOS, Windoze 
and any other flavour of opera- 
ting system for which someone 
has written a driver Now it is 
only available from Windoze. 
This means that although you 
can print with one of the new 
printers from the QL it will only 
print in black and white. Pre- 
vious versions of the driver, 
right up to Stylus 880, would 
accept the standard codes as 
shown in the ESC/P2_ pro- 
grammers manual but the new 
C80 uses different codes for 
colours so, as Henry Ford once 
said, ‘choose any colour you 
like So long as it is black’. This 
is intensely annoying and it 
took Rich a few weeks to get 
the information out of them. To 
my mind if you want to have a 
new standard call it something 
else. The trouble is that they 
can't think beyond Windoze 
users and, to be honest, us 
awkward types who want to 
use a system that is not ‘nor- 
mal’ are in a very small minority 
so why should they bother ? 
Rich is hoping to get to grips 
with the new codes and ! wil 
bring you any information 
about this aS soon as we have 
it. In the meantime there are 
two printers still available that 
do use the current codes. 
These are the Stylus 1520 and 
3000. | believe that both of 
these are wide carriage prin- 
ters which means, of course, 
that they are a lot more expen- 
sive than the others. 

This is all a great pity because 
the C80 | have is a very good, 
fast and quiet printer There is 
one drawback with Epson prin- 
ters and QPC2 and that is the 
way that EPSON installs its own 
printer port on the PC. This has 
had the effect with both the 
Stylus 740 and the C80 of 
having the code sent to the 
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driver but then doing little but 
activating the head and 
flashing the light. If you connect 
the same printer to the Q 40 
and use the same QL printer 
driver {ie in QD or ProWess} 
then it prints. Rich Mellor has a 
Stylus 740 and | have just built 
him a PC so he may be able to 
shed some light on this pro- 
blem too. 


| suppose that EPSON will dis- 
continue the above two ESC/ 
P2 printers as soon as they 
read this (| know all the big 
companies read my column). 
Ho Hum, paranoid, me ? 


No Place Like Hove 
Most of the period between 
the last issue and this one has 
been faking up with prepara- 
tions for the Workshop In Hove. 
This has been my pigeon for 
the last seven years and, al- 
though it does not take a lot of 
actual physical work, there is a 
lot of behind the scenes organi 
sation, phone calls and hunting 
out hotels. 

This year | have to apologise 
to Diwyn and his wife. They 
called me to ask about hotels 
and | had two on my list so | 
recommend one to them. Of 
course, you never stay in a 
hotel in your own town unless 
you are indulging in a bit of ‘the 
old extra marital or have been 
found out doing it. This means 
that | had no real idea how 
good the hotel was. It looked 
OK and the last people | sent 
there said it was fine but it 
seems that the room. that 
Dilwyn got was ‘like a junkies 
bedroom’ and the lock on the 
door did not even work. | must 
look further into the hotel situa- 
tion for next year's show. Mea 
Culpa - sorry. 

Apart from that the show went 
well. There were more people 
there than the previous year 


when the Foot and Mouth out- 
break, bad weather and general 
transport chaos combined to 
keep the numbers down. This 
year my wife again provided 
the catering and was joined by 
all three of my daughters. My 
eldest travelled down from 
London especially to help out 
and to keep the baby occu- 
pied. My thanks to them all. 
Thanks also to Valerie Taylor 
who jumped in and helped out 
in the sandwich making pro- 
cess. 

Geoff Wicks had some troubie 
getting down from Basildon by 
train and asked me why | al 
ways arranged these shows to 
coincide with rail disruption. 
This being England it would be 
hard to find a weekend when 
the trains were running so | 
must plead not guilty on that 
score. 

The usual culprits were there 
with the welcome addition of D 
& D systems who have taken 
over the supply of the Q40 / 
Q60. Marcel was there too and 
did some work on QPC 2 over 
in the corner of the room as 
well as trying to sort out my 
own printing problems. (see 
above) 

There were a lot of conversa- 
tions about the state of QL 
software and the things which 
are now desperately needing 
attention. These were conti- 
nues for a while in the pub up 
the road after the show and at 
my house later that night. As a 
result a few very important 
things were set in motion. 


Use the Source Luke 


(or Marcel) 

Marcel is one of the few people 
who have access to the 
source files for SMSQ/E and, 
while he was at the show, he 
tried a few tweaks to the Q 40 
SMSQ code to see if he could 
achieve a couple of things. (| 
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am not going to ask why the 
version of SMSQ/E that runs 
fine on the D & D Systems 
machine locks mine up) 

One thing Jochen, Marcel and | 
discussed on the night before 
the show was the implemen- 
tation of the colour drivers and 
how the Window Manager 
could be adapted to use the 
colour palette. This project has 
been something that Tony 
Tebby has been going to do for 
some time but it has, so far, not 
appeared. Jochen and Marcel 
asked around at the show 
about how the users would like 
to see it implemented and the 
discussion was thrown open 
on the Internet in the weeks 
following the workshop. 

| wondered if it would be possi 
ble to have a mode 4 box in- 
side the colour version of 
SMSQ/E, in a similar way to the 
DOS box used in Windoze. This 
would allow programs which 
do not display properly under 
the colour drivers to run 
correctly without having to 
reset and run in 512 x 256. This 
may, of course, not really be 
feasible but it is a starting point 
Marcel and Jochen have taken 
on the task of adding colours 
to the window manager and 
are looking into the prospect of 
other changes to the way that 
the whole of SMSQ/E ope- 
rates. To that end the discus- 
sion was thrown open onto the 
internet group forum. 


phous But Be Careful 


How You Shake It. 

Once out in the open there 
were a lot of excited com- 
ments and suggestions. Many 
of these returned to the old 
saw of ‘Open Source’. Tim 
Swenson, among others, would 
like to see the code made 
open source and suggested 
the way that this could be 
managed. The problem | have 
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with Open Source concepts is 
mainly that this is a committee 
system in a very thin disguise - 
and well all know how well 
committees work don't we ? 
The idea behind this is that 
people submit their changes to 
the code to an adjudicator and 
he decides if it should be 
included in the final distribution. 
The task of sorting and testing 
the fragments and changes is a 
very onerous and time con- 
suming one. the people who 
would be the natural choices 
for this are Jochen and Marcel, 
both of whom have limited time 
on their hands to undertake the 
task. Tim suggested _ that 
Simon Goodwin was ap- 
proached to take this on but 
Simon has not had the expe- 
rience of dealing with SMSQ/E 
that Jochen and Marcel have 
had and has never shown any 
inclination to write stuff for the 
Pointer Environment. 

Of course all of this may be a 
premature discussion because, 
at the time of writing, the code 
remains very firmly in the 
hands of Tony Tebby. Wolfgang 
Lenerz did say that TT was not 
opposed to It be open source 
‘in principle’ but that is a far cry 
from his saying ‘here is the 
code - do what you want with 
i 

lf the code ever becomes free- 
ly distributable and open to 
adaptation what could we ex- 
pect? The answer to this is not 
really obvious. ProWess_ be- 
came freely distributable open 
source some time ago and! am 
completely underwhelmed by 
the number of people who 
have done anything at all with 
it. You can count them on the 
fingers of one foot. SMSQ/E 
could prove different here 
because it is such a fundamen- 
tal building block for the sys- 
tem but that should make it 
even more imperative that it is 
controlled and tested. 


And What Is Sauce 
Without a Main 


Course? 

The trouble is that many of the 
people who really want to 
change things have ideas 
which may cause conflicts 
within the system - especially 
when you take the older 
software into account. Now | 
am all for progress here and it 
is not that the system is carved 
in stone but many of the cur- 
rent users rely on programs 
which were written a long time 
ago. You may well dismiss this 
because they will not be taking 
up the new system anyway but 
that is foo simplistic a view- 
point. 

With my other hat on - as a 
trader - | know how many of 
the users still rely on Quill 
Archive and some of the other 
pieces of ‘heritage’ software. | 
know that | have mentioned 
this before but | do want to 
make a point before the excite- 
ment reaches fever pitch on 
this. It is no good producing a 
brilliant version of SMSQ/E with 
more bells and whistles than a 
Morris Dancers outing to an 
80's disco if that version will 
then cripple the older software. 
{ was very pleased with the 
Q 40 when SMSQ/E first star- 
ted to be stable enough to run 
the programs that | use in my 
normal everyday working envi- 
ronment. The crunch came 
when the colour drivers were 
implemented with mode 4 
being available. This imme- 
diately stopped me from using 
some of the older programs 
such as Text 87. This is a prime 
example of how progress 
pushed the user backwards. A 
seismic change in the funda- 
mental core of SMSQ/E could 
magnify this effect. 

| welcome change but let us 
tread carefully 
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Break Out Of The 
Prison - Anyone Got a 
File With a Cake In It? 


In recent months Pheobus L 
Dokus has been providing 
users with small IDE devices 
which will take the Compact 
Flash Card used by digital 
Cameras and some other small 
handheld computers and PDAs. 
These are in fact a kind of 
RomDisq for multi platform 
devices. It is very useful to be 
able to plug a 128Mb storage 
device into a camera or PDA, 
write to it, and then take it out 
and read it on a PC. There has 
been a remarkable degree of 
fle consistancy across the 
platforms. Would it were so for 
US. 

| got one of these from Pheo- 
bus and | am now considering 
how to use it. If | use it on the 
Q 40 | will have to format it in 
the Atari format in order to be 
able to write to it. If | then 
remove it and plug it into the 
the multi-card reader | have on 
the PC | cannot see it because 
it is not a recognised format. 
The same is true in reverse 
although | suspect that | could 
do something with QXL Tools/ | 
have not, as yet, had the time 
to look into this fully so it sits, 
unused, on the shelf 

What | would like to see is a 
portable file format and a 
program to write and read from 
it. OK here is the challenge (and 
this is where the title of this 
section comes from). We need 
a nice commercial / shareware 
/ freeware program which 
could, when run, read a native 
QL file system in one pane and 
a new portable file system in 
another This could then 
transfer the files from one to 
the other Alternatively we 
need a way t read QXLwin files 
on a Q 40 and a Standard 
Qubide equipped QL. Maybe 
this all exists and some of you 


have done it all already. If that is 
true then write it up and get it 
in the magazine because there 
are SO many people who want 
to see It. 


Honourable Mentions 


in Despatches. 

Just a small medal here but | 
have to award it to Marcel for 
adding the ability to use a 
scrolling wheel mouse in QPC2. 
| have used one of these for 
ages on my PC at home and on 
the one at work and | keep 
reaching out to use it on the 
QL systems. Now we need to 
be able to add it to super- 
Hermes and the Q 40 as well 
as being able to find a scroll 
mouse that is not PS/2! 


Its Ram, Jim - But Not 


As We Know It 

A while ago one of the 
customers in my normal day 
job was chatting to me about 
shareware. | am a great lover of 
shareware for the PC and | use 
a lot of it' Sadly the trend 
towards cracking codes which 
has allowed many people to 
use Windoze and other M$ 
products to be available for 
free has also poached into this 
territory. Someone called me 


the other day and said that he 
had a crack for a program 
which cost a mere £ 20.00 and 
this Is a sad state of affairs for 
both programmer and user, | 
think. Luckily we, in the QL 
world, do not suffer from this 
activity. How would these peo- 
ple feel if someone got a 
‘crack’ for their car and went 
joyriding around the town | 
wonder? 

The shareware he was enthu- 
sing about (| cannot remember 
its name) provided him with a 
‘virtual disk in’ memory’ He 
seemed quite excited about 
this and so | asked him about it. 
He said it was a piece of 
software which allowed him to 
create a disk in memory to 
write to. | said ‘this is a kind of 
RAM disk then?’ ‘Yes’ he re- 
plied ‘great idea and so useful’. 
Smugness took over | am 
afraid, | asked if you had to set 
how big the virtual device was 
and he said that it had to be set 
up when the drive was initia- 
lised and this was the main 
drawback. 

‘We've had them on the QL 
since 1985’, | said, ‘Only ours 
are dynamic These PCs are so 
primitive’ 

Oh it felt good! 


HAVE YOU 
FILLED IN THE 


RENEWAL 
FORM YET? 


) The QL Show Agenda : 


uanta AGM and Workshop - (UK 


Manchester. A 2-day event on saturday 13th and 14th April 2002, 
Venue: 3rd Davyhulme Scout Headquarters, 
Conway Road, off Lostock Road. a 
Public from eee Sat and from 10am Sun. AGM 2.00pm saad Py. 


North panera US ‘Show 2002 


Saturday, Ist of June 
This time, the event takes place near Washington: 
Park Inn in Oxon Hill, Maryland. 
The Park Inn is a newly renovated motel just off the I-95/I-495 


beltway around Washington, D.C. just north of the Potomac 
For details, please check page 6 of previous issue.) 


OL Meeting - (NL) Eindhoven 
Saturday, 22rd of June, 10:00 to 16:00 


Pleincollege St. Joris, Roostenlaan 296 


After last year’s succes: 


German QL Show - (D) Berchtesgaden 
Two-Day Event, Sat./Sun, 5th/6th October 
Same venue as last year: Hotel Schwabenwirt. 
More details will be in the next issue of QL Today. > 
You can also check back-issues of QL Today, as everything : 
will be the same (including wonderful mountains, a nice 4 


lake, great views and, of course, nice weather) 


